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-REF a 


IDENTIFICATION 


PRODUCT CODE: AC=F61cv-MC 
PRODUCT NAME: CKKTBDO 11/44 MEM MGMT PRT B 


DATE: JANUARY, 1982 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR : DAN P. MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
a FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
IN WRITING BY DIGITAL. 


oat ee EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
THAT IS NOT SUPPLIED BY DIGITAL. 
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COPYRIGHT (C) 1979, 1982 BY DIGITAL EQUIPMENT CORPORATION 
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OCTOBER, 
DECEMBER 
APRIL, 


JANUARY, 


PROGRAM HISTORY 


SEQUENCE 


1979 
1979 
1981 


1982 


FIRST RELEASE 

ADDITION OF ‘CSM’ TEST 35 

USING NEW SYSMAC WITH “Q CHECKS AND BIT CHECK 
OF THE POWER MONITOR BIT OF CPUERR REGISTER. 


ATE ECO # 8. 
ECO # 8 WAS MODIFIED, CODE CHANGED TO REFLECT 
THE MODIFICATION. 
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1.0 PROGRAM INFORMATION 

92 

93 1.1 ABSTRACT 

94 quennmae 

96 THIS PROGRAM WAS DESIGNED USING a. ‘BOTTOM UP"’ re ole 
97 STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT 
98 LOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC. 


BY DEDUCTION, THE FAILURE CAN SE ISOLATED TO A SMALL 
SEGMENT OF THE MEMORY MANAGEMENT LOGIC. 


PART A BEGINS BY TESTING SOME OF THE INTERNAL CPU DATA 

AND ADDRESS PATHS AND ADDRESS DETECTION LOGIC, THEN 

WORKS OUTWARD THROUGH THE MEMORY MANAGEMENT REGISTERS. 

AFTER THE REGISTERS ARE FOUND TO BE USEABLE, RELOCATION 

(CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS 
AND THE ASSOCIATED PAR/PDR INFORMATION) IS TESTED. PART B 

BEGINS BY TESTING THE ABORT AND STATUS SEGMENTS OF LOGIC. 

PART B THEN CHECKS THE SPECIAL ABORT SEQUENCES, THE MFPI/MTPI 

INSTRUCTIONS AND THE CSM INSTRUCTION. 


1.2 REQUIREMENTS 


A PDP 11/44 PROCESSOR WITH A MINIMUM OF 16K OF MEMORY 
AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM 
UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHICH 
CASE THE CONSOLE TERMINAL IS NOT NECESSARY. 


¥s3 RELATED DOCUMENTS AND STANDARDS 


1. ACT11/XXDP PROGRAMMING SPECIFICATION 

re STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFACE 
3. DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIONS 

4. PDP11 MAI 3 SYSMAC PACKAGE 

Be XXDP USER'S MANUAL 


1.4 PRELIMINARY PROGRAMS 


BEFORE THIS MEMORY MANAGEMENT Boers IS RUN, THE 
FOLLOWING DIAGNOSTICS SHOULD BE RUN 


CKKAAAO 11/4 CPU/EIS 
CKKABAO TRAPS 


ALSO, THE MAIN MEMORY DIAGNOSTIC (CZMSD) SHOULD BE RUN TO SCAN 
AT LEAST THE FIRST 16K TO SEE THAT A PROGRAM CAN BE EXECUTED. 
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OPERATING INSTRUCTIONS 


THE PROGRAM IS SUPPLIED ON THE DIAGNOSTIC LOAD MEDIA. 
REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION. 
FOR USE WITH a ola APT, REFER TO THEIR RESPECTIVE 
DOCUMENTS. THE PROGRAM CAN ALSO BE DIRECTLY LOADED 
USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE. 


STARTING PROCEDURES 


THE PROGRAM IS STARTED BY LOADING ADDRESS 200 AND 
STARTING. THE SWITCH REGISTER SHOULD BE SET ACCORDING TO 
SECTION 2.35 BEFORE THE PROGRAM IS STARTED. HOWEVER, IF 
DESIRED, THE PROGRAM WILL USE THE SOFTWARE SWITCH REGISTER 
AT LOCATION 176 (LOCATION 174 i. BE USED AS THE a toe 
DISPLAY REGISTER). IN THAT CASE, THE PROGRAM WILL ASK FOR 
THE oe SWITCH REGISTER VALUE BY TYPING "SUR ri ¥ 
NEW= AFTER TYPING THE NAME OF THE PROGRAM (Xx 
THE OCTAL CONTENTS OF LOCATION 176). (SEE SECTION. >. 4) 


ALSO THE PROGRAM CAN BE MADE TO USE THE SOFTWARE SWITCH 
REG. EVEN IF THE CONSOLE SWITCH REG. IS PRESENT BY LOADING 
mye eer INTO THE CONSOLE SWITCH REG. BEFORE STARTING 
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2.3 CONTROL SWITCH SETTINGS 


100000 


040000 


020000 


010000 


002000 


001000 


000400 


LOOP ON 


INHIBIT 


INHIBIT 


BELL ON 


LOOP ON 


LOOP ON 


SEQUENCE 


ERROR 
THIS SWITCH WHEN SET WILL HALT 
THE PROCESSOR WHEN AN ERROR | 


I 
3.1 ABOUT LOADING THE SWITCH 
BEFORE CONTINUING). 


TEST 

THIS SWITCH WHEN SET WILL 
CAUSE THE PROGRAM TO LOOP ON 
THE CURRENT SUBTEST. 


ERROR TYPEOUTS 

THIS SWITCH WHEN SET WILL 
INHIBIT THE TYPING OF ERROR 
MESSAGES. 


TRACE TRAP 

THIS SWITCH WHEN SET WILL 
INHIBIT T-BIT TRAPPING WHICH 
NORMALLY TAKES PLACE DURING 
EVERY OTHER PASS STARTING 
WITH THE THIRD PASS. 


ERROR 

THIS SWITCH WHEN SET WILL RING 
THE CONSOLE TERMINAL BELL WHEN 
AN ERROR HAS BEEN DETECTED. 


ERROR 
THIS SWITCH WHEN SET WILL 
CAUSE THE PROGRAM TO 


LOOP ON THE 
FIRST FAILURE WHICH IS ENCOUNTERED 
EVEN IF THE FAILURE IS INTERMITTANT 


TEST IN SWR<7:0> 

THIS SWITCH WHEN SET WILL 

CAUSE THE PROGRAM TO LOOP ON THE 
TEST WHOSE TEST NUMBER IS SET 

IN BITS 7-0 OF THE SWITCH REG. 
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217 2.4 LOADING THE SWITCH REGISTER 
219 

220 THE CONSOLE SWITCH REGISTER PROVIDED 1S LOADED DIRECTLY FROM 
201 THE CONSOLE BY TYPING TROL P ¢°P). N THE CONSOLE 
223 PROMPT IS RECIEVED, TYPED SW_XXXXXX'", WHERE 0 IS THE 
22 INTENDED VALUE OF THE SWITCH REGISTER.” THE VALUE OF THE 

224 CONSOLE SWITCH REG. CAN BE CHANGED ANY TIME WHETHER THE PROGRAM 
929 IS RUNNING OR NOT. 

227 TO LOAD THE SOFTWARE SWITCH REG. WHILE THE PROGRAM IS 

228 RUNNING. A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE 

229 TERMINAL . (THE ‘'SCOPE ERROR’ ROUTINES CHECK TO SEE 

230 IF AS BEEN TYPED.) THE ORIGINAL. VALUE OF THE. SOF TWARE 
231 SUTICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2... 

233 IN RESPONSE TO A “G OR AT THE BEGINNING OF THE PROGRAM, THE 
234 PROGRAM WILL TYPE: 

236 SWR = XXXXXX NEW = 

238 WHERE "'XXXXXX"" IS THE CURRENT OCTAL CONTENTS OF LOC. 176. 

239 THE OPERATOR MAY THEN TYPE ANY ONE OF THE FOLLOWING: 

240 XXXXXX<CR> ONE TO SIX OCTAL DIGITS FOLLOWED BY A 

24 CARRIAGE RETURN WHICH E LOADE 

242 AS THE NEW VALUE FOR THE SWITCH REG. 

245 <CR> JUST A <CR>, LEAVES THE SWITCH REG. 

245 XXX*U A CONTROL~U (*U) WILL CAUSE ALL OF THE 

246 DIGITS TYPED SO FAR TO BE IGNOR 

247 “ WILL CAUSE THE PROGRAM TO TYPE THE PRESENT 

248 TEST AND PASS NUMBERS, REQUEST A NEW VALUE 

249 FOR THE SWITCH REG., AND JUMP TO THE END- 

250 OF-PASS ROUTINE SO THE PROGRAM WILL GO DIRECTLY 
251 TO THE NEXT PASS WITH A NEW SW. REG. VALUE 

252 <ILL.CHAR> ANY CHARACTER TYPED WHICH IS NOT ANY OF THE 
253 ABOVE OR AN OCTAL DIGIT WILL CAUSE THE PROGRAM 
254 TO TYPE A ‘'?<CRLF>*’ AND REACT AS THOUGH 

239 *U HAD BEEN TYPED. 

257 NOTE: RECOGNITION OF A *G MAY BE HAMPERED BY 

rr EXECUTION OF A COUPLE ‘RESET’ INSTRUCTIONS 

259 WITHIN THE PROGRAM. 

261 2.5 EXECUTION TIMES 

aS lS. Se 

264 THE RUN TIME FOR A SINGLE PASS WITH TRACE TRAPPING 


265 ENABLED IS APPROXIMATELY 5 SECONDS WITH CACHE. 
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266 3.0 ERROR INFORMATION 
oe eee 

269 3.1 ERROR REPORTING PROCEDURES 

271 

272 IF AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE 

273 ERROR HANDLING ROUTINE ($ERROR). THE VALUE OF BITS 

274 15,13,10, AND 9 IN THE SWITCH REGISTER ARE CONSIDERED 

275 IN REPORTING AN ERROR (SEE SECTION 2.3). TH 

276 ERROR INFORMATION WILL BE TYPED UNLESS SW13 = 

278 IF SW15 = 1, THE PROCESSOR WILL HALT AFTER THE ERROR IS 
279 REPORTED. IF THE CONTENT S OF THE SOFTWARE SWITCH REGISTER 
280 ARE TO BE CHANGED, A *G SHOULD BE TYPED BEFORE PRESSING 
281 “'CONTINUE’' TO RESUME TESTING. 

283 IF SW9 = 1 (LOOP ON ERROR), THE PROGRAM WILL GO TO THE 

284 ADDRESS CONTAINED IN LOCATION "‘SLPERR’’. AFTER REPORTING 
285 THE ERROR. ‘‘SLPERR'' IS SET BY EACH ‘'SCOPE’’ CALL AND IS 
286 SET DIRECTLY DURING SOME SUBTESTS TO PROVIDE THE SMALLEST 
287 LOOP FOR LOOPING ON ERROR. IF SW9 = 0, THE PROGRAM WILL 
288 RETURN TO THE INSTRUCTION FOLLOWING THE ERROR CALL. 

289 (SEE SECTION 5.3 FOR MORE ON ‘LOOP ON ERROR’). 

291 3.2 INTERPRETING ERROR REPORTS 

293 

294, EVERY ERROR REPORT TYPES THE NUMBER OF THE TEST IN WHICH 
295 THE ERROR TOOK PLACE (TESTNO) AND THE LOCATION OF THE 

296 ERROR CALL (ERRORPC). THESE TWO VALUES PINPOINT THE 

297 PLACE IN THE CODE THAT THE ERROR OCCURRED. BY REFERRING 
298 TO THE PROGRAM LISTI THE OP CAN THEN T 

299 NTS ASSOCIATED WITH THAT PARTICULAR ERROR AND SUBTEST. 
300 A DESCRIPTION OF THE TEST FOUND IN THE PROGRAM LIST! 

301 WILL ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC 
302 AND FUNCTIONS BEING TESTED. 

304 EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE 

305 GIVING A VERBAL DESCRIPTION OF THE ERROR THAT HAS 

306 BEEN DETECTED. 

308 BY USING THE COMMENTS AND TEST DESCRIPTION FOUND IN 

309 THE PROGRAM LISTING TO DETERMINE WHAT FUNCTION OR 

310 LOGIC WAS BEING TESTED, THE OPERATOR CAN THEN REFER 

311 TO THE ENGINEERING DRAWINGS TO ISOLATE THE PROBABLE 

312 CAUSE FOR THE FAILURE. 
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313 3.3 SAMPLE ERROR REPORT 
a me ee en oe Se ee ‘ 

315 

316 BELOW IS AN EXAMPLE OF AN ERROR WHICH COULD HAVE 

317 OCCURRED DURING EXECUTION OF THE PROGRAM: 

319 MEM. MGMT. REG. BITS NOT SET CORRECTLY 

320 REGISTR WROTE — READ 

301 ADDRESS COCTAL) COCTAL) $432109876543210 TESTNO ERRORPC 

52¢ 177572 040000 060000 0110000000000000 000012 022060 

324 WE SEE THAT THE ERROR OCCURRED IN TEST 12 AT LOCATION 

305 022060. THE "REGISTER ADDRESS’ TELLS US THAT WE WERE 

326 TESTING MEMORY MANAGEMENT'S STATUS RGISTER 0 (SRO). 

307 IN THE LISTING, THE TEST DESCRIPTION SAYS THAT THE 

328 ERROR BITS (BITS <15:13>) OF SRO ING SET AND 

329 CLEARED INDIVIDUALLY. | THE ERROR, REPORT SAYS WE TRIED 

330 TO SET BIT 14 BY WRITI 1040000 TO SRO BUT WHEN 

331 READ IT BACK WE READ "960000". IT APPEARS THAT BIT. 13. IS 

332 STUCK AT 1 OR IT Is GETTING SET WHEN BIT 14 IS SET 

333 TO ‘I''. ERROR REPORTS BEFORE AND AFTER THIS ONE COULD 

334 TELL US WHICH IS THE CASE. 

336 3.4 POWER MONITOR BIT ERRORS 

338 

339 WHEN THE POWER MONITOR BIT (BIT 0 OF THE CPU ERROR REGISTER) BECOMES 

340 SET DURING THE RUNNING OF THIS DIAGNOSTIC, THE $SCOPE ROUTINE WILL 

341 CALL_AN ERROR. IF THE BIT SHOULD BECOME SET AFTER THE SSCOPE ROUTINE 

348 AND AN ERROR, AND THE ERROR IS CALLED FOR ANY REASON, THE ERROR 

34 ROUTINE WILL CALL *fWO* ERRORS. THE FIRST ERROR WILL BE THE POWER 

344 MONITOR BIT ERROR CALL, THEN THE ERROR CALL ORIGINALLY CALLED WILL BE 

345 PRINTED. IN ANY CASE, LOOP-ON-ERROR IS DISABLED FOR THIS ERROR ONLY. 

346 1T IS RECOMMENDED THAT IF THIS ERROR SHOULD BE CALLED, THAT THE PROBLEM 

347 CAUSING THE BIT TO BE SET BE REPAIRED BEFORE RELYING ON THE RESULTS OF 

348 RUNNING THIS DIAGNOSTIC. 
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MISCELLANEOUS INFORMATION 


THE PROGRAM IS FULLY ACT AND APT COMPATABLE 
AND IS SUPPORTED UNDER THE XXDP PACKAGE. 


END-OF-PASS MESSAGE 


AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER 
AND TOTAL NUMBER OF ERRORS SINCE THE LAST END-OF=PASS ARE 
REPORTED IN THE END-OF=PASS MESSAGE. FOR EXAMPLE: 


END OF PASS #2 TOTAL ERRORS SINCE LAST REPORT 0 


THAT WOULD INDICATE THAT PASS TWO ws wits COMPLETED 
AND NO ERRORS WERE DETECTED DURING THAT PASS. BOTH 
THE PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL NUMBERS . 


T-BIT TRAPPING 


THE apt. (BIT 4) IN THE PROCESSOR STATUS WORD IS SET 
'RTI'' IN THE END-OF=PASS ROUTINE FOR JEVERY OTHER PASS 

BEGINNING WITH THE THIRD PASS (PASSES 3,5 7-9-5 0). 

TRAPPING CAN BE INHIBI TED BY BY SETTING BIT i2 = 1 IN THE SWITCH 

REGISTER (SEE SECTION 


POWER FAILURE HANDLING 


IF A POWER FAIL her (FOLLOWED BY A a UP), THE 
MESSAGE “POWER FAILURE-RESTARTING’' IS TYPED OUT AND 
THE PROGRAM WILL RESTART EXECUTION AT ‘‘START:** (THE 
VERY BEGINNING OF THE PROGRAM. IF THE SOFTWARE 

Sra, IS BEING USED, ITS CONTENTS WILL BE 


10 
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359 4.5 PHYSICAL BUS ADDRESS CONSTRUCTION 
391 
9 BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY 
9 tr wg NT LOGIC CONSTRUCTS A ria Akos BUS ADDRESS 
94 USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS a he 
395 THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN THE 
309 PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION. 
$5 12 11 10 09 08 07 06 05 04 03 02 01 00 
rh Lata es 2 wee tO Tl ae 
402 I 
re (ADDED TO) 
re 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 I 
407 io 7 2 2.8 ete 2 ace ee a wT PAR** 
Sr I 
409 I I 
‘ 
216 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
oie Aes Bee Bee Ae aoe Rea eae 
416 
417 *= VBA BITS <15:13> SELECT THE APPROPRIATE PAR AND PDR 
418 x= PSW MODE BITS <15:14> SELECTS THE USER (=11), SUPERVISOR 
419 (=01) OR KERNEL (=00) SET OF PAR'S/PDR'S 
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PROGRAM DESCRIPTION 


PA ‘ SOF S 
PROGRAM MAY BE FOUND IN THE PROGRAM LISTING. REFER TO 
A. taal DOCUMENT AND PROGRAM LISTING FOR THE OTHER 


AB L PAR/PDR’S 
4. CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


NOTE ALSO THAT THE MACRO LIBRARY USED TO ASSEMBLE THIS PROGRAM 
HAS OTHER SPECIAL ROUTINES APPENDED TO THE SYSMAC MACRO PACKAGE; 
aaetae MUST BE USED TO ASSEMBLE EITHER PART A OR PART B 


PROGRAM LISTING 


A TABLE OF CONTENTS APPEARS AT THE BEGINNING OF THE LISTING 
WHICH CONTAINS THE NAMES OF EACH SECTION, SUBTEST, AND 
aa AND THE LINE NUMBERS CORRESPONDING TO THE START OF 


FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL 
PROGRAM LISTING COMPLETE WITH SUBTEST DESCRIPTIONS AND 
“CODING COMMENTS". 
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USING THE PROGRAM TO DIAGNOSE A FAULT 


WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT'S IMPORTANT 
TO NOTE IS WHAT PASS THE ERROR OCCURRED ON. IF THE PASS 


THE 
12 OF THE SWITCH REG. EQUAL TO ‘'l*’ TO INHIBIT T-BI 
TRAPPING. THIS SHOULD HELP YOU DETERMINE WHAT MAKES THE 
MACHINE FAIL AND WHEN. 


IF YOU HAVE TRE RUNNING B hy. BIT 15 OF THE SWITCH 
QUAL T ot 0 


YOU MORE 
CLUES ABOUT THE NATURE OF THE FAULT. NOW USE THE METHOD 
OUTLINED IN SECTION 3.2 FOR EACH ERROR TO GATHER AS 
MUCH INFORMATION AS POSSIBLE. 


NOW TO TEST YOUR IDEAS ON THE CAUSE OF THE FAILURE, 
YOU MAY WANT TO SCOPE THIS ERROR CONDITION. SET BIT 09 
OF THE SWITCH REG. EQUAL TO ‘'l’' TO LOOP ON THE ERROR. 
FOR AN EVEN TIGHTER SCOPE LOOP THE ERROR CALL CAN BE 
REPLACED WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS 
IN THE PROGRAM LISTING). 


OR YOU COULD LOOP ON THE TEST BY EITHER SETTING BIT 14 
OF THE SWITCH REG. EQUAL TO ‘'l'’ OF BY SETTING BIT A. OF THE 
TO E HE TEST NUMBER 


QUAL 
IN BITS 07-00 OF THE SWITCH REG. YOU WILL PROBABLY WANT TO 
pig Be, TYPEOUTS BY SETTING BIT is, OF THE SWITCH REG. 
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-TITLE CKKTBDO 11/44 MEM MGMT PRT B 
(C) 1982 


; *COPYRIGHT 


; *DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


* 


as 
;*THIS PROGRAM WAS ASSEMBLED USING a” i MAINDEC SYSMAC 


:*PACKAGE (MAINDEC-11-DZQAC-C5), JAN 
> te 
-SBTTL OPERATIONAL SWITCH SETTINGS 


;* 

;* SWITCH 
>  — ek se as ey se 
z* 15 
3* 14 
:* 13 
:* 12 
:* 10 
;* 9 
:* 8 


STA 


L 
~SBTTL BASIC DEFINITIONS 
iim ta OF THE STACK POINTER *** 1100 **« 


ERROR=EMT 
SCOPE=I0T 
a DEFINITIONS 


HALT ON ERROR 
LOOP ON T 


TES 
INHIBIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 
BELL ON E 
LOOP ON ERROR 
OOP ON TEST IN SWR<7:0> 


;;CODE FOR yo pte TAB 
cies FOR LINE FEED 


NE 
CR= 15 :;CODE FOR CARRIAGE RETURN 
CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 : PROCESSOR STATUS WORD 
STKLMT= 177774 ;3STACK LIMIT REGISTER 
PIRQ= 177772 :P INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; HARDWARE SWITCH REGISTER 
DDISP= 177570 “HARDWARE DISPLAY REGISTER 

:*GENERAL PURPOSE REGISTER DEF INI TIONS 

RO= 40 > :GENERAL REGISTER 
R1= 41 ::GENERAL REGISTER 
R2= %2 > :GENERAL REGISTER 
R3= 13 >: GENERAL REGISTER 
R4= %i, ::GENERAL REGISTER 
R5= 15 > :GENERAL REGISTER 
R6= 16 ;;GENERAL REGISTER 
R7= 47 RAL REGISTER 
SP= 16 7s STACK POINTER 
PC= 47 “Pp COUNTER 
=*PRIORITY LEVEL DEFINITIONS 
PRO= 0 :;PRIORITY LEVEL 0 
PRi= 40 *:PRIORITY LEVEL 1 
PR2= 100 > :PRIORITY LEVEL é 
PR3= —s-« 140 > PRIORITY LEVEL 
PR4= 200 = :PRIORITY LEVEL 4 
PR5= 240 *:PRIORITY LEVEL 5 
PR6= 300 = :PRIORITY LEVEL 6 
PR7= 340 = :PRIORITY LEVEL 7 


14 


— LS 
-_-_-_ 








cs 
1/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 15-1 SEQUENCE 15 


CKKTBDO 1 
BASIC DEFINITIONS 
;*"'SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 Swi5= 100000 
040000 SW14= 4 
020000 SW13= 20000 
0 Sw12= 10000 
SWI1= 4000 
002000 sw10= 2009 
001000 swO9= 1000 
400 SwOB= 400 
000200 sw07= 200 
000100 SwO6= 100 
20 Suo= 20 
si a 
900001 Su00= 
001000 SW9=SWO9 
000400 SWB=SW08 
000100 Su6=$406 
900020 Sug =su04 
000010 SW3=SW03 
00004 Su2=SwW02 
000002 SW1=SW01 
000001 SWO=SWO00 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
040000 BIT14= 40000 
020000 BIT13= 20000 
0000 BITI2= 10000 
003000 BIT10= 2000 
001000 BITO9= 1000 
000400 BITOB= 400 
000200 BITO7= 200 
000100 BITO6= 100 
0040 BITOS= 40 
000020 BITO4= 20 
000010 BITO3= 10 
004 BITO2= 4 
000002 BITOI= 2 
001 BITOO= 1 
001000 BIT9=B1T09 
B1T8=B1T08 
000200 BIT7=B1T07 
000100 BIT6=BIT06 
BIT5=B1T05 
0 BIT4=B1T04 
000010 BIT3=BIT03 
000004 BIT2=BITO2 
000002 BIT1=BIT01 
000001 BIT0=B1T00 
;*BASIC “'CPU' TRAP VECTOR ADDRESSES 


000004 ERRVEC= 4 ; TIME OUT AND OTHER ERRORS 
000010 RESVEC= 10 : ERESERVED AND ILLEGAL INSTRUCTIONS 


CKKTBDO 11/44 MEM MGMT PRT B 


SS 
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000064 
000240 
000250 
177572 


172516 
177600 


177616 
177620 


177676 


172200 
172202 
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TBITVEC=14 33 

TRIVEC= 14 ;; TRACE TRAP 
TVEC= 14 ; ;BREAKPOINT TRAP (BPT) 

IOTVEC= 20 ; INPUT/OUTPUT TRAP (IOT) **SCOPE** 
VEC= 24 : POWER FAIL 

EMTVEC= 30 + s EMULATOR TRAP (EMT) **ERROR** 

TRAPVE C=34 AP** TRAP 

TKVEC= 60 :;TTY KEYBOARD VECTOR 

TPVEC= 64 eeTTy PRINTER VECTOR 

PIRQVEC=240 :PROGRAM INTERRUPT REQUEST VECTOR 


"SBTTL MEMORY MANAGEMENT’ DEFINITIONS 
yakTl1 VECTOR ADDRESS 


;*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


77676 
;*SUPERVISOR ‘'I'* PAGE DESCRIPTOR REGISTERS 
SIPDRO= 172200 
SIPDR1I= 172202 
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CKKTBDO 11/44 MEM MGMT 
MEMORY MANAGEMENT DEFINITIONS 
172206 SIPDR2= 172204 
172206 SIPDRS= 172206 
172210 SIPDR4= 172210 
172212 SIPDRS= 172212 
172214 SIPDRG= 172214 
172216 SIPDR7= 172216 
;*SUPERVISOR ''D'' PAGE DESCRIPTOR REGISTERS 
172220 SDPDRO= 172220 
172202 SDPDR1= 172202 
172224 SDPDR2= 172224 
172226 SDPDR3= 172226 
172230 SDPDR4= 172230 
172232 SDPDR5= 172232 
172236 SDPDRG= 172234 
172236 SDPDR7= 172236 
;*SUPERVISOR ‘'I'' PAGE ADDRESS REGISTERS 
172240 SIPARO= 172240 
172242 SIPAR1= 172242 
172264 SIPAR2= 172244 
172246 SIPAR3= 172246 
172250 SIPARS= 172250 
172252 SIPARS= 172252 
172254 SIPARG= 172254 
172256 SIPAR7= 172256 
:*SUPERVISOR ''D'' PAGE ADDRESS REGISTERS 
172260 SDPARO= 172260 
172262 SDPAR1= 172262 
17226 SDPAR2= 172264 
172266 SDPAR3= 172266 
172270 SDPAR4= 172270 
172272 SDPARS= 172872 
172274 SDPARG= 172074 
172276 SDPAR7= 172276 
;*KERNEL "'I"’ PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDRI= 172302 
172304 KIPDR2= 172304 
172306 KIPORS= 172506 
172310 KIPDR4= 17231 
172312 KIPDRS= 172512 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 
:*KERNEL "'D'' PAGE DESCRIPTOR REGISTERS 
172320 KDPDRO= 172320 
172322 KDPDRI= 172322 
172324 KDPDR2= 172324 
172326 KDPDR3= 172326 
172330 KDPDR4= 172330 
172332 KDPDR5= 172332 
172334 KDPDRO= 172334 
172336 KDPDR7= 172336 
;*KERNEL "'I'’ PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPAR1= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3= 172346 
172350 KIPAR4= 172350 


a ee, ee — 
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MEMORY MANAGEMENT DEFINITIONS 


172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 KIPAR7= 172356 
;*KERNEL ‘'D'* PAGE ADDRESS REGISTERS 
172360 KDPARO= 172360 . 
172362 KDPAR1= 172362 
172364 KDPAR2= 172364 
172366 KDPARS= 172366 
172370 KDPAR4= 172370 
172372 KDPARS= 172372 
172374 KDPARG= 172374 
172376 KDPAR7= 172376 
1330 :*ADDITIONAL DEFINITIONS 
;* 
1201 177572 MMRO=SRO 
1202 17757 MMR1=SR1 
1203 177576 MMR2=SR2 
1204 172516 MMR3=SR3 
1205 0000 KSP=SP 
1206 000006 SSP=SP 
1207 06 USP= 
1208 000020 TBIT=BIT4 
1209 1 W811 =8176 
1210 177766 CPUERR=177766 
1211 001100 KERSTK=STACK 
1212 000700 SUPSTK=STACK~200 
1213 000600 USESTK=STACK~300 


SEQUENCE 
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TRAP CATCHER 


1246 -SBTTL TRAP CATCHER 


000000 = 
*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT’’ 
“*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 
sini *LOCATION, 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: .WORD 0 :: SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 =:SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
000200 000137 020000 @ASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
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ACT11 HOOKS 


1247 .SBTTL ACT11 HOOKS 
5 LAER ARE ERA EEE REE EERE ERR EEE 


;HOOKS REQUIRED BY ACT11 
$SVPC=. 


ae Ne: S ; SAVE PC 
000046 Bree 3s SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
00005 =52 


000052 000000 -WORD 0 322)SET LOC.52 TO ZERO 
000204 . =$SVPC :3 RESTORE PC 


a eee me ee 
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- SBTTL APT PARAMETER BLOCK 


SOIGIUIII UIC IOUS IOIOIOIISIOIOIDISISIIIIIUOIIUIOIIOIUIOIISIUIDIIIOI UO net rennt 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
IRIE ISIIOIOIUIIIOIIOI IOI SIIOIIIOIIIIIDIOIIIDUISIIIU ID OO init 
~-SX=. ;;SAVE CURRENT LOCATION 
.=24 23ST POWER FAIL TO POINT TO START OF PROGRAM 
200 ;3FOR APT START UP 
~=44 :;POINT TO APT INDIRECT ADDRESS PNTR. 
$APTHDR  EPOINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
ETI iii tii iit iti tits siti iiiii iii ti titi iii ii itiiiiiisiiiiiiiit yt 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
j INTERFACE SPEC. 
$HIBTS: .WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
$MBADR: .WORD $MAIL ; s ADDRESS OF APT MAILBOX (BITS 0-15) 
STSTM: .WORD 2 sRUN TIM OF LONGEST T 


SEQUENCE 


TES 
SPASTM: .WORD 5 : RUN iB IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


SUNITM: .WORD 5 TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


WORD SE TEND-SHAILY? 7: LENGTH MAILBOX=ETABLE (WORDS) 
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COMMON TAGS 


1249 - SBTTL COMMON TAGS 


SAREE ERA EEE EEE KEE EKEEEREREREEEEEREKRERKEKKEH EEE 


:*THIS TABLE pte yl VARIOUS COMMON STORAGE LOCATIONS 


:*USED IN THE PROGRAM 
-=1100 


001100 
001100 SCMTAG: ;:START OF COMMON TAGS 
001100 000000 -WORD 0 
rae 000 STSTNM: .BYTE 0 ;:CONTAINS THE TEST NUMBER 
00110 000 SERFLG: .BYTE 0 ;;CONTAINS ERROR FLAG 
001104 000000 SICNT: .WORD 0 ;sCONTAINS SUBTEST ITERATION COUNT 
001106 000000 SLPADR: .WORD 0 :sCONTAINS SCOPE LOOP ADDRESS 
001110 0 SLPERR: .WORD 0 ;:CONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 ::CONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: .BYTE 0 :-CONTAINS ITEM CONTROL 
001115 001 $E -BYTE 1 :sCONTAINS MAX. ERRORS PER TEST 
001116 SERRPC: .WORD 0 : CONTAINS PC OF LAST ERROR — 
001120 000000 $GDADR: .WORD 0 :;CONTAINS ADDRESS OF ‘GOOD’ DAT 
001122 000000 SBDADR: .WORD 0 ; CONTAINS ADDRESS a *BAD' DATA. 
001124 000000 SGDDAT: .WORD 0 2 ee ‘GOOD’ DATA 
001126 0 $BDD -WORD 0 :CONTAINS ‘BAD’ DATA 
001130 0000 -WORD 0 ; ;RESERVED--NOT TO BE USED 
001132 000000 -WORD 0 
001134 000 $SAUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
001135 000 SINTAG: .BYTE 0 : INTERRUPT MODE INDICATOR 
001136 000000 -WORD 0 
001140 177570 : -WORD DSWR :sADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP :sADDRESS OF DISPLAY REGISTER 
001144 177560 TKS: 177560 esTTyY KBD STATUS 
001146 177562 $TKB: 177562 ; KBD BUFFER 
001150 177564 $TPS: 177564 SITY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 se PRINTER BUFFER REG. ADDRE 
001154 000 ‘i: m2: 9 CONTAINS NULL C TER FOR F 
001155 002 SFILLS: .BYTE 2 ;;CONTAINS # OF Ae CHARACTERS REQUIRED 
001156 012 SFILLC: .BYTE 12 s¢INSERT FILL CHARS. AFTER A “LINE FEED** 
001157 000 STPFLG: .BYTE 0 32 ‘TERMINAL AVAILABLE’ ss (BIT<07>=0=YES) 
001160 000000 SREGAD: .WORD 0 > CONTAINS THE ADDRESS FROM 
7:WHICH ($REGO) WAS OBTAINED 
000006 -REPT  $CM3 
001162 000000 $REGO: .WORD 0 ;;CONTAINS ((S$REGAD) +0) 
001164 000000 $SREG]: .WORD 0 ;;CONTAINS (($REGAD) +2) 
001166 000000 SREG2: .WORD 0 CONTAINS ((S$REGAD) +4) 
001170 000000 SREGS: .WORD 0 7 ;CONTAINS (($REGAD) +6) 
001172 000000 SREG4: .WORD 0 : CONTAINS (($REGAD) +10) 
001174 000000 $REGS5: .WORD 0 CONTAINS ((SREGAD) +12) 
000006 -REPT 6 
001176 000000 STMPO: .WORD 0 USER DEFINED 
001200 000000 STMP1: .WORD 0 ; USER DEFINED 
001202 000000 STMP2: .WORD 0 oe DEF INED 
001204 000000 STMP5: .WORD 0 ;;USER DEFINED 
001206 000000 STMP4: .WORD 0 ; USER DEFINED 
001210 000000 STMP5: .WORD 0 ; ;USER DEF INED 
001212 000000 SESCAPE :0 CAPE ON ERROR ADDRESS 
ites ath 377 377 $BELL: .ASCIZ <207><377><377> ::CODE FOR BELL 
001220 077 SQUES: .ASCII /?/ ; QUESTION MARK 
001221 015 SCRLF: .ASCII <15> Ste ee RETURN 
001222 012 000 SLF: eASCIZ <12> ;sLINE FEED 


oe eee ee - - ee = ee 


——————— ee 
~ a 
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COMMON TAGS 


FF EAA AA AAA ERE REE ERE KEKE EEE 


-SBTTL APT MAILBOX-ETABLE 


5 AAA AAA EAE AEAEE TEE KERR KERR EEE 


001224 SMAIL : ;;APT MAILBOX 
001224 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
901226 900000 $FATAL: .WORD AFATAL TAL ERROR NUMBER 
001230 000000 STESTN: “WORD ATESTN ::TEST NUMBER 
001232 SPASS: RD ASS. ;;PASS COUNT 
001234 000000 $DEVCT: . ADEVCT ;;DEVICE COUNT 
001236 000000 $SUNI WORD AUNIT ;;1/0 | 
001240 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
001242 000000 S$MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH | 
001244 SETABLE : ; APT ENVIRONMENT TABLE | 
001244 000 -BYTE AENV ;;ENVIRONMENT BYT | 
001245 —— 000 SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 
001246 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER | 
001250 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 
001252 000000 SCPUOP: .WORD ACPUOP CPU TYPE OPTIONS 
:# BITS IS-115¢PU T 
:* 4201, “11 /05= 02.117/20=03,11/40=04,11/45=05 
:* 11/70206-P 
:# BIT 10=REAL TIME’ CLOC 
:# BIT 9=FLOATING POINT PROCESSOR 
; BIT 8= MANAGE 
001254 SE TEND 
»MEXI 
001254 000000 TESTNO: .WORD 0 HOLDS TEST NUMBER FOR TYPEOUTS 
001256 000000 WASR6: .WORD 0 :USED TO STORE THE STACK POINTER AFTER A TRAP 
001260 000000 TRAPPC: .WORD 0 USED TO STORE THE PC OF A TRAP OR ABORT 
001262 000000 TRAPPS: .WORD 0 [USED TO STORE THE PS OF A TRAP OR ABORT 
001264 000000 WASSRO: .WORD 0 ;USED TO STORE CONTENTS OF SRO 
001266 000000 WASSR1: .WORD 0 ;USED TO STORE CONTENTS OF SR 
001270 000000 WASSR2: .WORD 0 ;USED TO STORE CONTENTS OF SR2 
001272 000000 WASSR3: .WORD 0 ;USED TO STORE CONTENTS OF 
001274 000000 TBITPS: .WORD 0 ;SAVES THE PSW THAT MAY HAVE ITS T-BIT ON 
001276 000000 VIRT1: .WORD 0 :HOLDS VIRTUAL S TO BE CONVERTED 
001300 0 PBALO: .WORD 0 LDS BITS <15:00> OF PHYSICAL ADDRESS 
001302 000000 PBAHI: .WORD 0 HOLDS BITS <21:16> OF PHYSICAL ADDRESS 
001304 000000 BADPC: .WORD 0 HOLDS PC FROM ABORT OR TRAP 
001306 000200 SMXCNT: .WORD 200 ;HOLD MAX. NUMBER OF LOOP ITERATIONS 
001310 000000 $TBIT: .WORD 0 ;*T* BIT STATE INDICATOR 
001312 136 103 015 $CNTLC: .ASCIZ /*C/<15><12> CONTROL C 
001315 012 000 is 


-——- 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION ‘- EACH ERPOR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


: *NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SER 
* *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
oe EM ::POINTS TO THE ERROR MESSAGE 
st DH ::POINTS TO Lb DAT 
:* DT ::POINTS TO THE DATA 
-* DF ;:;POINTS TO THE DATA FORMAT 
001320 $ERRTB 
1250 :*ITEM 1 
1251 001320 007522 EM1 s UNEXPECTED ~. TRAP TO LOC. 004 
1536 001322 012672 DH1 ;0LD PC OLD PSW R6 WAS CPUERR TESTNO ERRORPC 
1253 001324 015306 DT1 > TRAPPC TRAPPS- WASR6, CPUERR, TESTNO, SERPPC 0 
1254 001326 016057 DF12 70,0,0,0,0,0 
1256 :* ITEM 2 
1257 001330 007562 EM2 :UNEXPECTED MEM. MGMT. TRAP TO LOC. 250 
1258 001332 012752 DH? sOLD PC OLD PSW R6 WAS SRO SR2 TESTNO ERRORPC 
1259 001334 015324 DT2 Ae ty pr a WASR6, WASSRO, WASSR2, TESTNO, SERRPC., 0 
1260 001336 016041 DF2 0,0,0,0,0,0 
1262 se] TEM 3 
1263 001340 007631 EM10 MEMORY MGMT. ACCESS ABORT DID NOT OCCUR 
1264 001342 013042 DH10 R4 PSW TESTNO ERRORPC 
1265 001344 015344 DT10 ‘SREG2, $TMPO, TESTNO, $ERRPC , 0 
1266 001346 016050 DF3 :0.0,0, 
1267 
1268 = ITEM 4 
1269 001350 007701 EM11 : ACCESS ERROR DID NOT ABORT INSTRUCTION 
1270 001352 013042 DH10 “PDR 4 TESTNO ERRORPC 
1271 001354 015344 DT10 *$REG2, STMPO, TESTNO, $ERRPC 0 
1272 001356 016050 DF3 :0,0,0,0 
1273 
1274 se ITEM 5 
1275 001360 007750 EM12 :SRO DID NOT REPORT ACCESS ERROR CORRECTLY 
1276 001362 013102 DH12 “SRO WAS EXPECTD PDR 4. PSW TESTNO ERRORPC 
1277 001364 015356 DT12 = WASSRO SREG3, SREGD STMPO, TESTNO, SERRPC 0 
1278 001366 016057 DF12 70,0,0,0,0.0 — 
1280 se ITEM 6 
1281 001370 010022 EM13 :SR2 DID NOT LOCKUP CORRECT VIRTUAL ADDR. 
1282 001372 013162 DH13 : SRE WAS EXPECTD PDR 4 PSW TESTNO ERRORPC 
1283 001374 015374 DT13 SR2,$REG4, $REG2,STMPO, TESTNO. SERRPC .0 
1284 001376 016057 DF12 10-0 00000 
1286 :* ITEM 7 
1287 001400 010073 EM14 ;PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE 
1288 001402 013242 DH14 V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC 
1289 001404 015412 DT14 ‘ SREGO. SREGG, WASSRO, WASSRO” TESTNO, SERRPC 0 
1290 001406 016057 DF12 70,0,0,0,0,0 


— 


——L_—— 
_—__—__—_———-—— 


Mm 2 
CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 22 SEQUENCE 25 
ERROR POINTER TABLE 


1291 :*]TEM 10 
1298 001410 010154 EM15 :PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE 
1293 001412 013322 DH15 *V.B.A. KIPDR4 TESTNO ERRORPC 

1294 001414 015430 DT15 > $REGO,$REG4, TESTNO, $ERRPC,0 

1295 001416 016050 DF3 :0,0,0,0 

1297 :* ITEM 11 

1298 001420 010237 EM1 :SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY 
1299 001422 013362 DH16 7V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC 
1300 001424 015442 DT16 = $REGO, SREG4 , WASSRO, $REG2, TESTNO, SERRPC 0 

1301 001426 01605 DF12 :0,0,0,0,0, 

1302 

1303 se] TEM 12 

1304 001430 010022 EM13 :SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 

1305 001432 013442 DH17 :V.B.A. KIPDR4 $R2 WAS EXPECTD TESTNO ERRORPC 
1306 001434 015460 DT17 > $REGO, SREG4, WASSR2, $REG3, TESTNO, S$ERRPC 0 
1307 001436 016057 DF12 :0,0,0,0,0,0 

1309 :*ITEM 13 

1310 001440 010022 EM :SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 

1311 001442 013522 DH20 =SR2 WAS EXPECTD TESTNO ERRORPC 

1312 001444 015476 DT20 = WASSR2,$REG1, TESTNO, $ERRPC ,0 

1313 001446 016050 DF3 -0,0,0,0 

1315 :*ITEM 14 

1316 001450 010315 EM21 :SRO OR SR2 CHANGED BY A SECOND ABORT 

1317 001452 013562 DH21 “FIRST ABORT SECOND ABORT 

1318 >SRO WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC 
1319 001454 015510 D721 :$TMPO, $STMP2, WASSRO,WASSR2, TESTNO, SERRPC 0 
1320 001456 016057 DF12 :0,0,0,0,0,0 

1322 se ITEM 15 . 

1323 001460 010362 EM22 :SRO OR SR2 WAS NOT "'RESET’’ BY A RESET 

1324 001462 013677 DH22 =SRO WAS SR2 WAS TESTNO ERRORPC 

1325 001464 015526 DT22 = WASSRO, WASSR2, TESTNO, $ERRPC ,0 

1326 001466 016050 DF3 70,0,0,0 

1328 :eITEM 16 

1329 001470 010431 EM23 :SR2 NOT TRACKING CORRECTLY 

1330 001472 013522 DH20 *SR2 WAS EXPECTD TESTNO ERROPC 

1331 001474 015476 DT20 “WASSR2,$REG1, TESTNO, $ERRPC , 0 

1332 001476 016050 DF3 :0,0,0,0 

1334 ze ITEM 17 

1335 001500 010464 EM24 :DID NOT TRAP THRU KERNEL SPACE 

1336 001502 013737 DH24 *PSwW WAS R6 WAS TESTNO ERRORPC 

1337 001504 015540 DT24 *$REG1, $REG2, TESTNO,SERRPC 0 

1338 001506 016050 DF3 :0,0,0,0 


ae Se 
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ERROR POINTER TABLE 


1339 :*] TEM 20 
1340 001510 010523 EM25 7KT ERROR SERVICED ON ODD ADDR. ERROR 

1341 001512 013522 DH20 =P TESTNO ERRORPC 

LE ak 001514 015476 DT20 *$REGS, TESTNO, SERRPC,0 

1343 001516 016054 F5 0,0, 

1344 

1345 :* ITEM 21 

1346 001 339 010570 EM26 : SRO OR SR2 CHANGED BY ODD ADDR. ERROR 

1347 001522 013777 DH26 ; EXPECTED RECEIVED 

1348 SR2 SRO WAS SR2 WAS TESTNO ERRORPC 
1349 001524 015552 DT26 *$REGO, SREGI, WASSRO, WASSR” TESTNO. SERRPC,0 

1350 001526 016057 DF12 :0,0,0,0.0, 

1352 :* ITEM 22 

1353 001530 010636 EM27 :ERROR DURING ‘DOUBLE ERROR’ (KT & ODD ADDR.) 
1354 001532 014111 DH27 “EXPECTED: 

1355 =PSWw PC SRO SR2 

1356 :170017_ (3844) 020147 (3S) 

1357 ;RECEIVED 

1358 PC SRO SR2 TESTNO ERRORPC 
1359 001534 015570 DT27 * $REG1, $REG3, WASSRO. WASSR2> TESTNO, $ERRPC 0 

1360 001536 016057 DF12 :0,0,0,0,0, 

1362 s* ITEM 23 

1363 001540 010713 EM30 ;MFPI INSTRUCTION PUSHED WRONG DATA 

1364 001542 014306 DH30 “DATA _—iODATA 

1365 i EXPECTD RECEIVD TESTNO ERRORPC 

1366 001544 015606 DT30 REGO, $REG1, TESTNO, $ERRPC,0 

1367 001546 016050 DF3 :0,0,0, 

1368 

1369 se ITEM 24 

1370 001550 010756 E ;MTPI INSTRUCTION LOADED WRONG DATA 

1371 001552 014306 DH30 “DATA _—iODATA 

1378 *EXPECTD RECEIVD TESTNO ERRORPC 

1373 001554 015606 DT30 ;$REGO, $REG1, TESTNO, $ERRPC 0 

1374 001556 016050 DF3 :0,0,0, 

1375 

1376 se ITEM 25 

1377 001560 011021 EM32 :STACK NOT PUSHED BY MFPI-MTP] 

1378 001562 014362 DH32 :TESTNO ERRORPC 

1379 001564 015620 DT32 : TESTNO, SERRPC ,0 

1380 001566 016065 DF 32 70,0 

1382 sITEM 26 

1383 001570 011057 EM33 :KERNEL PAGE ACCESSED INSTEAD OF USER: MFPI-MTPI 
1384 001572 014401 DH33 SRO WAS SR TESTNO ERRORPC 

1385 001574 015526 DT22 < BASSRO S VASSRO, TESTNO, SERRPC ,0 

1386 001576 016050 DF3 :0,0,0,0 

1388 “ITEM 27 

1389 001600 011135 EM34 :M.M. ABORT IN KERNAL D-SPACE HAD WRONG CONDITION 
1390 001602 014441 DH34 >(MMRO) (MMR1) (MMR2) TESTNO ERRORPC EXPECTING 020031 
1391 001604 015626 DT 34 *$REG1,$REG2, $REG3, TESTNO, SERRPC,0 

139 001606 016034 DF1 :0,0,0,0,0 

1394 :*ITEM 30 

1395 001610 011216 EM35 : ILLEGAL MODE 10 NOT ABORTED 


~~ ee eee 
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ae POINTER TABLE 


1 OOtele 013788 DHS :TESTNO _ERRORPC 
139 aid 14 0156 DT3 ; TESTNO, SERRPC ,0 
1398 001616 01606 DFS 70,0 


——— ee eee Ess ~ss>-stlS snN 
— 








| € § 
CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 24 SEQUENCE 28 
ERROR POINTER TABLE 


1399 :*] TEM 31 
1400 901620 011252 EM36 ;SRO DID NOT REPORT ILLEGAL MODE 10 CORRECTLY 
1401 001622 014532 DH36 =SRO WAS EXPECTD TESTNO ERRORPC 

1408 001624 015642 DT36 :WASSRO, $REG1, TESTNO, $ERRPC ,0 

1405 001626 016050 DF3 :0,0,0,0 

1405 se ITEM 32 

1406 001630 011327 EM37 :PSwW CHANGED BY AN RTI IN USER MODE 

1407 001632 014572 DH37 =PSwW WAS EXPECTD TESTNO ERRORPC 

1408 001634 015540 DT24 “$REG1, $REG2, TESTNO,$ERRPC, 0 

1409 001636 016050 DF3 :0,0,0,0 

1411 : «TEM 33 

1412 001640 011372 EM4 :ABORT IN KERNAL D-SPACE PICKED UP VECTOR FROM I-SPACE 
1413 001642 014632 DH40 :(PSW) TESTNO ERRORPC EXPECTING XXX340 
1414 001644 015654 DT40 *$REGO, TESTNO, SERRPC ,0 

1615 001646 016054 DFS 70,0,0 

1417 se] TEM 34 

1418 001650 011457 EM41 :D SPACE ENABLE CIRCUITRY HAS FAILED 

1419 001652 014703 DH41 “ERROR  AUTOI/D VIRTUAL 

1420 :REGISTR REGISTR ADDRESS TESTNO PC AT ABORT 
1421 001654 015664 DT41 :WASSRO, WASSR1, WASSR2, TESTNO, BADPC , 0 

1682 001656 016034 DF1 -0,0,0,0,0 

1424 se ITEM 35 

1425 001660 011523 EM : INCORRECT STORE BY MTP INSTRUCTION 

1426 001662 015007 DH42 -GDDATA STORED TESTNO ERRORPC 

1427 001664 015700 DT42 *$REG3, $REG4, TESTNO, SERRPC,0 

1428 001666 016050 DF3 :0,0,0,0 

1430 sx ITEM 36 

1431 001670 011566 EM4 : TRIED TO REFERENCE NON-RESIDENT PAGE 
1432 001672 015047 DH43 :(MMRO) (MMR1) (MMR2) TESTNO ERRORPC 
1433 001674 015712 DT43 > $REGO, $REG1, $REG2, TESTNO, $ERRPC,0 

1434 001676 016034 DF1 

1436 se] TEM 37 

1437 001700 011633 EM44 :WRONG DATA FETCHED BY MFP INSTRUCTION 
1438 001702 014306 DH30 “DATA _—CODATA 

1439 sEXPECTD RECEIVD TESTNO ERRORPC 

1440 001704 015606 DT30 : $REGO, $REG1, TESTNO, $ERRPC,0 

1641 001706 016050 DF3 :0,0,0,0 

1248 :*ITEM 40 

1444 001710 011566 E : TRIED TO REFERENCE NON-RESIDENT PAGE 
1445 001712 015047 DH43 >(MMRO) (MMR1) (MMR2) TESTNO ERRORPC 
1446 001714 015726 DT45 = WASSRO,WASSR1 ,WASSR2, TESTNO, SERRPC , 0 
1667 001716 016034 DF 1 :0,0,0,0,0 

1449 se TEM 41 

1450 001720 011701 EM45 : ILLEGAL CSM DID NOT TRAP TO 10 

1451 001722 014362 DH32 -TESTNO ERRORPC 

145¢ 001724 015620 DT32 = TESTNO, SERRPC,0 

1453 001726 016041 DF2 0,0 
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1454 

1486 001732 
1289 001734 
1458 001736 
1459 

1460 

1461 001740 
1006 001742 
1463 001744 
1464 001746 
1465 

1466 

1467 001750 
1468 001752 
1469 

1470 001754 
1471 001756 
ang 

147 

1474 001760 
1475 001762 
1476 

1477 001764 
1478 001766 
1479 

1480 

1481 001770 
1482 001772 
1483 

1484 001774 
1485 001776 
1486 

1487 

1488 002000 
1489 002002 
1490 002004 
1491 002006 
136 

149 

1494 002010 
1495 002012 
1496 002014 
1497 002016 
1498 

1499 

1500 002020 
1501 

1206 

150 

15 

15 

15 

1 

1 

1 
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s*ITEM 42 
EM46 


*1TEM 44 
EM50 
DH30 


DT30 
DF 1 


s*ITEM 46 
EMS52 
DH30 
DT50 
DF1 


ss ITEM 47 
M 





SEQUENCE 


DID NOT ENTER SUPERVISOR MODE 
Ye (PSW) _TESTNO ERR PC 
Se fetter 


:CSM SET UP WRONG PREVIOUS MODE 
sEXPECTD (PSW) TESTNO ERR PC 
;SREG3,ACSMPS , TESTNO, SERRPC ,0 


. 
° o ¢ e € 


:CSM SET UP STACK WRONG 
:DATA DATA 

sEXPECTD RECEIVD TESTNO ERR PC 
sACSMSP ,$TMPO, TESTNO, SERRPC ,0 


:CSM PUSHED INCORRECT ARGUMENT 
:DATA DATA 

sEXPECTD RECEIVD TESTNO ERR PC 
;$REGO,CSMIST, TESTNO,SERRPC ,0 


;CSM PUSHED WRONG PC 

sDATA DATA 

sEXPECTD RECEIVD TESTNO ERR PC 
;STMPO,CSM2ND,TESTNO, SERRPC 0 


e ? 


:CSM DID NOT CLEAR OLD PSW BITS <3:0> 
;OLDPSW TESTNO ERR PC 
2 yr wt hla ata 


CSM ACCESSED WRONG SUPERVISOR SPACE 
:TESTNO ERR P 
: TESTNO, SERRPC ,0 


o a e 


:CSM ABORTED WHEN IT SHOULD NOT HAVE 
sTESTNO ER 
; TESTNO, SERRPC ,0 


29 


:CSM FAILED TO INCREMENT/DECREMENT REGISTER PROPERLY 
; XP RO RCV 


:TESTNO ERR PC E 
: TESTNO,SERRPC ,STMPO,SREGO,0 


:0,0,0,0 


ited eeeeneeeneeteetieennneetaeene ne ee 
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ERROR POINTER TABLE 


1510 :*] TEM 53 
1511 002040 012413 EMS7 :CSM FAILED TO PUT PROPER ARGUMENT ON STACK 
1318 0020462 015246 DH57 :TESTNO ERR PC ARGEXP ARGRCV 

1513 002044 016022 D157 : TESTNO, SERRPC ,$TMP1, $TMP2,0 

1314 002046 016050 DF3 70,0,0,0 

1516 se] TEM 54 

1517 002050 012466 EMS8 :SR2 LOCKED UP AN 11/34 COMPATIBLE ADDRESS THA 
1518 “DOES NOT MAKE 1 C IBLE WITH AN 11/70 SINCE 
1519 : THE OPTIONAL M7095 ECO #8 IS MISSI 

1520 002052 013522 DH20 *SR2 WAS EXPECTD TESTNO C 

1521 002054 015476 DT20 ‘ BASSRO $REG1, TESTNO, SERRPC 0 

1522 002056 016050 DF3 :0,0,0,0 


eS rn 


Sone 
SS 
Sus 
SAN 
ofo 


1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 002060 
1533 002060 
1534 

1535 002064 
1536 002070 
1537 002074 
1538 002076 
1539 002100 
1540 002104 
1541 002106 
1542 002112 
1543 002114 
1544 002120 
1545 002122 
1546 002126 
1547 002130 
1548 002134 
1549 002140 
1550 002144 
1551 002146 
1552 002150 
1553 002152 
1554 002156 
1555 002160 
1556 002164 
1557 002170 
1558 002174 
1559 002176 
1560 002202 
1561 002206 
1562 002210 
1369 002214 
1 

1 

1 


012700 
012702 


000743 
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077406 
000020 
172340 
172200 
172240 
177600 
172340 


172360 
000007 


000200 
177600 
177600 
172356 


172240 
172260 


172256 


177640 
177660 


tT"  <— 
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SEQUENCE 
.SBTTL INITIALIZE ALL PAR'S AND PDR'S 
* kexee SUBROUTINES UNIQUE TO THIS PROGRAM  ‘teee« 
FP AAA ARR R AERA EEE EEEEREEKEREKEEEEEEEKKKEERKKE EKER E 
**® 
>t THIS ROUTINE WILL INITIALIZE ALL KERNAL, SUPERVISOR, AND 
:* USER PAR'S AND PDR'S TO THEIR USUAL INITIAL VALUE 
** 
I TITITITILTITILITILITITLITI LILI LIL LLL LLL LLL LLL LLL LLL LTT Ti 
APRINIT: 
MOV #77406,RO ;MAKE ALL PDR'S 4K, READ/WRITE, UPWARDS 
sEXPANDING, 200 BLOCKS 
MOV #KIPDRO,R2 :LOAD THE ADDRESS OF THE FIRST KERNAL PDR 
1$: MOV #20, “LOAD R1 WITH 16 
2$: MOV RO, (R2)+ :LOAD EACH PDR 
SOB R1, :LOOP UNTIL ALL ARE LOADED 
CMP R2,AKDPDR7+2  :HAVE WE LOADED ALL KERNAL PDR’S 
BNE 3$ :BRANCH IF KERNAL & SUPER HAVE BEEN LOADED 
MOV #SIPDRO,R2 :LOAD ALL SUPERVISOR PDR'S 
BR =BRANCH TO LOOP 
3$ CMP R2,MSDPDR7+2  ;:HAVE USER PDR'S BEEN DONE 
BNE “BRANCH IF THEY HAVE 
MOV HUIPDRO,R2 :LOAD ALL USER PDR'S 
BR 1$ *BRANCH TO LOOP 
4$ MOV #KIPARO,R1 :LOAD R1 WITH ADDRESS OF KIPARO 
MOV #KDPARO.R2 :LOAD R2 WITH ADDRESS OF KDPARO 
S$: MOV #7,R3 :LOAD LOOP COUNTER WITH 7 
CLR RO :CLEAR PAR VALUE REGISTER 
6$ MOV RO, (R1)+ :LOAD AN I-SPACE PAR 
MoV RO, (R2)+ -LOAD A D-SPACE PAR 


#200,R0 “INCREASE THE PAR VALUE BY 200 
SOB R3 6$ “LOOP UNTIL 7 PAR'S ARE LOADED 
MOV #177600,(R1) | :MAP I-SPACE PAR7 TO I/O PAGE 
MOV #177600.(R2) | :MAP D-SPACE PAR7 TO I/O PAGE 
CMP Ri ,AKIPAR7 


MOV #SIPARO,R1 
4 #SDPARO ,R2 


5$ 
7$: CMP R1,ASIPAR? 
BEQ 8$ ;BRANCH TO USER LOAD ROUTINE 
RTS PC zRETURN TO CALLING ROUTINE 
8$: MOV MUIPARO,R1 


MOV ene 
BR 5 


31 


LLL CC CC CC TL 


ee —_+-—- =~ —— +--+. - esses 
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D-SPACE TESTS MEMORY MANAGEMENT ABORT SERVICE ROUTINE 


1568 .SBTTL D=-SPACE TESTS MEMORY MANAGEMENT ABORT SERVICE ROUTINE 

1569 +e. MARSBAAASASAZALALAAALALALAALESSRALESESLSE LESS S ES EEE EEE SET TEER EES 

1570 if THIS ROUTINE WILL BE ENTERED IF A MEMORY MANAGEMENT ABORT OCCURS 

1571 :* DURING THE D-SPACE ENABLE TESTS. IF THE ABORT IS A NON-RESIDENT 

1572 :* ABORT. THE PROBLEM IS PROBABLY IN THE DSPACE ENABLE LOGIC. IN 

1573 :* ALL OF THE DSPACE ENABLE TESTS, D-SPACE PAGES 1 & 3 AR ED 

1574 :* NON-RESIDENT AND I-SPACE PAGE 3°1S MAPPED NON-RESIDENT. ALL 

1575 :* OTHER PAGES ARE MAPPED RESIDENT, 4K, READ/WRITE. THEREFORE, IF 

1576 :* THE NON-RESIDENT PAGE IS 1 OR 3 YOU ARE NOT FORCING I-SPACE WHEN 

1577 :* YOU SHOULD. IF THE NON-RESIDENT PAGE IS 3, AND YOU ARE IN TEST 

1378 :* 152, YOU ARE PROBABLY FORCING I-SPACE WHEN YOU SHOULD BE ALLOWING 
** - 

1580 *: b MARRAASASSAASALAASALAAAAASAALESLALALESES ESE S ESE SESE SEE ER ECE PE TS SSS 

1581 002232 NODSPAC: ;STARTING ADDRESS FOR ABORT SERVICE ROUTINE 

1582 002232 042737 000004 172516 BIC  #B1T2,MMR3 TURN OFF D=SPACE BEFORE DOING ROUTINE 

1583 002240 005227 INC (PC)+ :MAKE FLAG ZERO IF THE FIRST TIME 

1584 002242 177777 NDFLAG: .WORD 1 SFLAG SHOULD BE ~1 

1585 002244 001401 BEQ =s-:'10 :BRANCH IF FIRST TIME IN ROUTINE 

1586 002246 000000 HALT 1 HAVE ENTERED THIS ROUTINE BEFORE 

1587 THE FIRST IS REPORTED; THE SECOND 

1588 ;ENTRY ADDRESS IS ON THE STACK, AND THE 

1589 FIRST ERROR CONDITION IS PROBABLY STILL 

1590 :LOCKED UP. 

1591 002250 011637 001304 10$: MOV (KSP) ,BADPC :SAVE PC_AT TIME OF ABORT OR TRAP 

1592 002254 012637 001260 MoV (KSP)+,TRAPPC SAVE RETURN ADDRESS IN CASE OF LOOP 

1593 002260 012637 001262 MOV (KSP)+,TRAPPS SAVE OLD PSW IN CASE OF LOOP 

1594 002264 013737 177572 001264 MOV $ MMRO,WASSRO  § SAVE STATUS REGISTER 

1595 002272 013737 177574 001266 MOV = MMR1, WASSR1 ;SAVE AUTO INCR/DECR REGISTER 

1596 002300 013737 177576 001270 MOV §§ MMR2,WASSR2 =§ ;SAVE VIRTUAL ADDRESS REGISTER 

1597 002306 005737 001264 TST  WASSRO :WAS ABORT NON-RESIDENT? 

1598 002312 100002 BPL 1$ ;BRANCH IF ABORT NOT EXPECTED 

1599 002314 104034 ERROR +34 :D-SPACE ENABLE FAULTY 

1600 002316 000401 BR 2$ ;BRANCH TO EX It 

1601 002320 104002 1$: ERROR +2 UNEXPECTED M.M. ABORT 

1602 002322 042737 177376 177572 28: BIC § #177376,MMRO  :CLEAR ALL BITS" EXCEPT 0 AND 8 

1603 002330 012737 177777 002242 MOV #-1,NDFLAG ;MOVE A -1 TO THE FLAG 

1604 002336 013746 001262 MOV -“‘TRABPS.=(KSP)  :PUSH OLD PSwW ONTO STACK 

1605 002342 013746 001260 MOV -—«SsTRAPPC,-(KSP) PUSH OLD PC ONTO STACK 

1606 002346 052737 000004 172516 BIS § #BIT2.MMR3 : TURN D-SPACE BACK ON 

1607 002354 000006 RTT :RETURN TO MAIN PROGRAM 





en 
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TURN OFF T=-BIT AND SAVE CURRENT PSW 


1608 -SBTTL TURN OFF T-BIT AND SAVE CURRENT PSW 


1609 5 RARER EERE EERE REE REE EAE ERE ERR ERE EERE 
1610 ;* 
1611 3* THIS SUBROUTINE IS USED TO TURN OFF THE TRACE TRAP BIT IN 
1612 3* THE PSW IF IT IS ON. THE. PROCESSOR STATUS IS SAVED IN 
1613 3* ""TBITPS'* SO THAT THE PSW CAN BE RESTORED TO ITS PREVIOUS 
oie ;* CONDITION WHEN CONDITIONS WARRANT T-BIT TRAPPING. 

** 
1616 PETIT ITITITI TTT TTITI ITIL Iii iitiiiitititiitiLiiL LiL i 
1617 002356 033727 177776 000020 TOFF: BIT PSW,ATBIT :IS THE T-BIT SET IN THE PSW? 
1618 00 001411 BEQ ii IF NO 
1619 00 Oi 3738 177776 MOV ~ (SP) “PUSH PRESENT PSW ON THE STACK 
1620 002372 011637 001274 MOV (SPSS TBITPS :ALSO save HT IT iN ‘"TBITPS'’ FOR 
1066 002376 042716 000020 BIC #TBIT, (SP) CL LEAR THE ToBit (BIT 4) IN THE PSW 
16235 002402 012746 002410 MOV #1$,-(SP) ; PUSH PC OF ‘'RTS** ON STACK 
1624 002406 000006 RTT :"'RETURN'' TO 1$ WITH T-BIT OFF 
1625 002410 000207 1$: RTS PC RETURN TO PROGRAM 





—— 
TET 
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16 

1699 

1609 

1680 

1631 

1632 

1633 

1634 002412 
1635 002420 
1038 002422 
be 002426 
1638 0024 
1639 002440 
1640 002442 
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001274 


001274 
000340 
002442 
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000020 


001274 


SE a 


SEQUENCE 


- SBTTL TURN ON T-BIT AND RESTORE PREVIOUS PSW 


‘ 5 EAE RARER ERE EEE KERAEEKEKEERERRKE EE 


;* THIS SUBROUTINE IS Tar TO RESTORE THE PROCESSOR STATUS 
;* TO ITS PREVIOUS CONDITION BY RESTORING THE ‘'T-BIT PSw"’ 

; SAVED BY THE “‘TOFF'*’ SUBROUTINE IN THE ‘‘TBITPS'* LOCATION. 
** 


‘roa alata ig mata sgh ok tale spormgt degen? tog 


:WAS T-BIT ON IN THE PREVIOUS PSW? 
T se NO 


i 


BIT TBITPS ,ATBIT 


BEQ =Ss«1S ZEXI 

MOV §--TBITPS,-(SP) | PUSH PREVIOUS PSwW ON THE STACK 

MOV  #340,TBITPS |= ;RESET THE "'TBITPS'* LOCATION 

MOV =: #1$,,- (SP) :PUSH PC OF "RTS' ON STACK 

RTT i RETURN’ TO. 1$ WITH T~BIT RESTORED 
1$: RTS PC RETURN TO PROGRAM 


34 


TT NN - - ~ -- 
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SUBROUTINE TO PREPARE ERLOOP, THE STACK AND EXIT TO ERROR 


1641 .SBTTL SUBROUTINE TO PREPARE ERLOOP, THE STACK AND EXIT TO ERROR 
1906 : : AREA RRREREERERREERREEEERERERERERRERERERERARREEREREEEEREEEEREED 
164 ;* 
1644 tt THIS SUBROUTINE IS USED BY THE THREE SUBROUTINES MFPITS, MTPITS AND 
1645 :* MFPDTS WHEN AN ERROR IS CALLED. THE RETURN ADDRESS 1S A 
1646 it RETURN IS NOT BACK TO THE SUBROUTINE, BUT TO THE TEST ERROR CALL. THIS 
1647 :* ROUTINE SETS LOCATION ERLOOP, DUPLICATES THE RETURN ADDRESS ON THE 
1648 +t TACK FOR POSSIBLE LOOP ON ERROR CORRECTS THE RETURN ADDRESS TO 
1649 * POINT TO THE ERROR CALL 4 LOCATIONS BACK FROM THE ‘‘TEST PASSED’ LOCA- 
1650 ie ION E "TEST PASSED'’ RETURN ON THE STACK IS NOT 
1651 ie TOUCHED FOR PROBABLE LATER USE WHEN LOOPING IS NO LONGER ENABLED. 

** 
1626 *: PREP: TST (SP)*. -sPOP RETURN OF THIS ROUTINE — MOT 
1654 002444 005726 ERPREP: TST (SP) + :POP RETURN OF THIS ROUTINE - USED 
1655 002446 012737 000001 002624 MOV #1,ERLOOP :SET ERROR LOOPING FLAG INDICATING AN ERROR 
1656 002454 011646 MOV (SP) ,-(SP) “DUPLICATE RETURN PC AND 
1657 002456 162716 000004 SUB #4, (SP) :FUDGE FOR ERROR RETURN 
1658 002462 000207 RTS PC sRETURN TO THE ERROR CALL IN THE TEST 
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1659 .SBTTL SUBROUTINE TO TEST MFPI INSTRUCTION 

1660 UTITIIITITITII ITT ELLE TELL LILLE LLL ELLE LLL 

1661 ze 

1962 :* USAGE OF THE SUBROUTINE BELOW IS AS FOLLOWS: 
*® 

1664 ie MOV #MFPILP,$LPERR ;PUT ADDRESS OF LOOPING LOCATION IN $LPERR 

1665 :* MOV #(NUMB) ,MFPIPS :PUT PS PREVIOUS/CURRENT MODE VALUE IN THIS LOCATION 

1666 :* MOV #TRAPRTN MFPIVC :LOAD THE TEST EXCLUSIVE TRAP ROUTINE TO MFPIVC 

1667 ie MOV #(NUMB) ,R ADDRESS IN R2 

1668 :* (IT IS ASSUMED THAT ALL PDR*S/PAR'S WILL ALSO BE SET UP PROPERLY) 

1669 ie JSR PC .MFPITS :GO DO THE TEST 

1670 ie MFPI (MODE) :MEPI INSTRUCTION TO TEST 1$ PUT HERE 

1671 ze NOP ‘NEEDED FOR MODES 1,2,4, & 5 *ONLY* 

1672 :* ERROR  +(NUMB) sRETURN IS HERE FOR ERROR CALLS 

1673 * TST (SP)+ :POP STACK = EXTRA RETURN INSTALLED BY SUBRTN NOT NEEDED 
** 

1675 jzomngotungescateesmnsnnsnsenencusasia saumanemmatagsneneqongnets 

1676 002464 005037 002624 MFPITS: CLR ERLOOP :CLEAR ERROR LOOPING F 

1677 002470 011605 MOV ) RS “MOVE STACK POINTER 10” Re FOR SUBROUTINE LOADING 

1678 002472 012537 002532 MOV (RSs MFPILD §_ :MOVE MFPI INSTRUCTION TO LOCATION 

1679 002476 012537 002534 MOV (R5)+,MFPILD+2 :MOVE NEXT WORD TO LOCATION 

1680 002502 062716 000010 ADD #10, (SP) :FUDGE RETURN TO ‘‘TEST PASSED'’ LOCATION 

1681 002506 010637 001176 MOV SP, $TMPO sSAVE THE STACK POINTER AND 

1682 002512 011637 001200 MOV (SP), $TMP1 “SAVE THE RETURN ADDRESS 

1683 007516 012737 MFPILP: MOV (PC)+,a(PC)+ | :SETUP PSW AS DEFINED BY LOADED VALUE IN PRVMD1 

1684 0023520 00 MFPIPS: .WORD 0 “LOCATION TO HOLD SUPER/USER PREVIOUS MODE 

1685 902522 177776 .WORD  PSW “LOAD THE PSW 

1686 002524 017737 000072 000250 MOV @aMFPIVC.MMVEC :SET M.M. VECTOR TO MFPIV1 

1687 002532 000000 000000 MFPILD: .WORD 0,0 :LOCATIONS TO HOLD MFPI INSTRUCTION UNDER TEST 

1688 002556 012737 016142 000250 MOV #MGMERR.MMVEC :SET M.M. VECTOR TO NORMAL ROUT 

1689 002544 012601 MOV (SP)+,R1 = POP SUPERV I SOR/USER/KERNEL STACK INTO R1 

1690 002546 020001 CMP RO,R1 [WAS DATA FETCHED SAME AS STORE 

1691 002550 001411 BEQ 1$ “BRANCH IF CORRECT DATA WAS FETCHED 

1692 002552 012737 000340 177776 MOV #340, PSW :60 TO KERNEL MODE 

1693 002560 013706 001176 MOV STMPO,SP RESET SP 

16 564 013716 001200 MOV STMP1. (SP) “RESET RETURN ADDRESS 

1695 002570 004737 002444 JSR PC, ERPREP :G0 PREPARE LOCATION ERLOOP, RETURN PC & EXIT TO ERROR 

1696 FOR TIGHTER SCOPE LOOP, REPLACE ‘JSR PC,ERPREP’’ WITH ‘BR MFPILP'’ 7 

1697 002574 005737 002624 is: TST ER LOOP :CHECK TO SEE IF THIS ‘PASSED’ IS IN AN ERROR LOOP 

1698 002600 001346 BNE sBRANCH BACK IF SO 

1699 002602 012737 000340 177776 MOV W340-PSW :GET BACK TO KERNEL MODE 

1700 002610 013706 001176 MOV $TMPO, SP sRESET SP 

1701 002614 013716 001200 MOV STMP1, (SP) “RESET RETURN ADDRESS 

1708 002620 000207 RTS PC sEXIT = TEST PASSE 

1703 002622 000000 MFPIVC: .WORD 0 :LOCATION TO HOLD ADDRESS OF MM TRAP CATCHER 

1704 002624 000000 ERLOOP: .WORD 0 =LOCATION USED TO FLAG AN ERROR CONDITION 
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-SBTTL SUBROUTINE TO CHECK THE MTPI INSTRUCTION 


MARARARASLSASASLALLALALSLALAASASARAARASESASASASESLESLES ESE S ESSE ERE RRR SE SS 


** 
i* USAGE OF THE SUBROUTINE BELOW IS AS FOLLOWS: 
** 
* MOV #MTPILP,$LPERR ;PUT ADDRESS OF LOOPING LOCATION IN $LPERR 
ie MOV #(NUMB) .MTPIPS :PUT PS PREVIOUS/CURRENT MODE VALUE IN THIS LOCATION 
>t MoV ATRAPRTN, /MTPIVC LOAD THE TEST EXCL SIVE TRAP ROUTINE TO MTPIVC 
** 
“* (IT IS ASSUMED THAT ALL PDR'S/PAR'S WILL ALSO BE SET UP PROPERLY) 
a JSR PC MTPITS : 60 O THE T 
* MTP] (MODE) MTPI INSTRUCTION TO TEST IS PUT HERE 
ik NOP “NEEDED FOR MODES , & 5 *ONLY* 
ie ERROR  +(NUMB) “RETURN IS HERE FOR ERROR CALLS 
* TST (SP) + :POP STACK = EXTRA RETURN INSTALLED BY SUBRTN NOT NEEDED 
** 
roomennensssinnnestecsasnennehanmuamteamapiaieseatanescatetee 
MIPITS: CLR ERLOOP :CLEAR ERROR LOOPING FLAG 
MOV (SP) R5 “MOVE STACK POINTER TO tae FOR LOADING 
MOV (R5)+,MTPILD | :MOVE MTPI TO LOCATION 
MOV (R5)+,MTPILD+2 :MOVE NEXT WORD TO LOCATION 
MOV (R5)+,MTPITA | :MOVE NUMBER T0 App TO R2 TO LOCATION 
ADD #12, (SP) :FUDGE RETURN TO ‘TEST PASSED’ LOCATION 
MIPILP: MOV ese. a(PC)+ § :MAKE PREVIOUS MODE USER/SUPERVISOR 
MTPIPM: .WORD 8 ;LOCATION TO HOLD PREVIOUS MODE USER OR SUPER 
. WORD “LOAD THE PSW 
MOV RO = (KSP) ‘PUSH TEST DATA ON KERNEL STACK 
CLRB  KIPDR4 “MAKE KERNEL I PAGE 4 NON-RESIDENT 
MOV @MTPIVC,MMVEC :SET MM TO VECTOR IN MTPIVC 
MIPILD: .WORD :LOCATIONS USED TO PLACE THE MPTI INSTRUCTION 
MOV “RESTORE MM V NORMAL ROUT INE 


#MGMERR ,MMVEC 
MOVB #006, KIPDR4 “MAKE KERNEL 
ADD (PC)+,R2 “ADD NUMBER T 


IDENT 
TO UNDO INCREMENT/DECREMENT 
MTPITA: a 0, +2 OR 100000 


0 :LOCATION TO HOLD -2 
(R2).R1 ‘READ FROM ADDR 


DRESS 6 
CMP = ROR :SEE IF DATA WAS STORED AT CORRECT PLACE 
BEQ Ss BRANCH IF _IT WAS 
JSR ___ PC, ERPREP /GO PREPARE LOCATION ERLOOP, RETURN PC & EXIT TO ERROR 
iFOR r1GHTER ERROR LOOP. REPLACE see Ff ,ERPREP’’ WITH "BR MIPILP’’ = 000754 


THIS “‘PASSED*’ WAS IN AN ERROR LOOP 
BNE MTPILP H BACK IF SO 


RTS PC :EXIT = TEST PASSED 
MTPIVC: .WORD 0 :LOCATION TO HOLD MM VECTOR TO LOAD 
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SEQUENCE 38 


~SBTTL SUBROUTINE TO CHECK THE MFPD INSTRUCTION 


MARRS LASARAASAALAALSAALAALAAAASALALASSALALS SELES ELSES ERE EERE SE SE SE | 


USAGE OF THE SUBROUTINE BELOW IS AS FOLLOWS: 


;PUT ADDRESS OF LOOPING LOCATION IN $LPERR 
;PUT PS PREVIOUS/CURRENT MODE VALUE IN THIS os 


MFPDPS 
#TRAPRIN MFPDVC ;LOAD THE asec ie TRAP ROUTINE TO MFPD 


** 
**® 
+t MOV #MFPDLP,SLPERR 
st MOV # (NUMB) , 
+ MOV 
;* MOV 
;* 
;* + 
* MFPD 
ze NOP 
+ ERROR  +(NUMB) 
ik TST (SP) + 
:* 
MFPDTS: CLR ERLOOP 
MOV )R5 
MOV (A5a MFPDLD 
MOV (R5)+, “MFPDLD+2 
ADD #10, (SP) 
MFPDLP: MOV (PC5+,a(PC)+ 
MFPDPS: .WORD 0 
.WORD PSW 
MOV aMFPDVC ,MMVEC 
MFPDLD: .WORD : 
MOV #MGMERR , MMVEC 
MOV (SP)+,R1 
CMP RI 
BEQ 
JSR PC, ERPREP 
1$: TST ERLOOP 
BNE MFPDLP 
RTS PC 
MFPDVC: .WORD 0 


:SET UP PSW AS LOADED BY TES 


#(NUMB) ,R2 , SETUP ADD 
(IT + ASSUMED THAT ALL PDR*S/PAR'S WILL ALSO BE SET UP PROPERLY) 
JSR PC ,MFPDTS :GO DO THE TEST 


;MFPD INSTRUCTION TO TEST IS wr + tes 
;NEEDED FOR MODES 1, 5 * 

;RETURN IS HERE FOR ERROR CALLS 

:POP STACK = EXTRA RETURN INSTALLED BY SUBRTN NOT NEEDED 


IPOTS: CLR ERLOOP CLEAR THE ERROR LOVPING FLAG 


sCLEAR THE ERROR LOWPING FLAG 
:MOVE RETURN ADDRESS TO R5 FOR LOADING 
:MOVE MFPD ee ee toe ieet Telttaae BELOW 


:MOVE NEXT WORD TO T 


L 
FUDGE RETURN TO THE "TEST. PASSED’ LOCATION 
T RUNNING THIS SUBROUTINE 
:LOCATION TO HOLD NUMBER TO LOAD THE PSWw 
LOAD THE PSW 
;SET M.M. VECTOR TO TRAP CATCHER OF THE TEST 
;LOCATIONS TO HOLD THE MFPD INSTRUCTION 
SRESTORE MM VECTOR TO NORMAL ROUTINE 
POP K/S/U STACK INTO R1 
; WAS DATA FETCHED SAME AS DATA STORED 
E ERLOOP, STACK AND EXIT TO ERROR CALL 
"SEE IF THIS "PASSED" IS IN AN ERROR LOOP 
BRANCH BACK IF SO 
EXIT - TEST PASSED 
LOCATION TO HOLD MM VECTOR OF TEST 


a 


z= ee ———————o“ 
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SEQUENCE 
.SBTTL SCOPE HANDLER ROUTINE 
{RARER EEE ARERR REREREARKKERKKKEEE 
“STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
; SAND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
. STHE SuITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
+ *SW14 LOOP ON TEST 
= *SWO9 LOOP ON ERROR 
* *SWO8=1 LOOP ON TEST IN SWR<7:0> 
> *CALL 
; SCOPE ::SCOPE=IOT 
SSCOPE: 
CKS ::TEST FOR CHANGE IN SOF T=SWR 
1$: BIT #B1T14,aSWR ;3LOOP ON PRESENT TEST? 
BNE 0 YES IF SW14=1 
-MHHAASTART OF CODE FOR THE XOR ‘ist TERAAAHH 
$XTSTR: BR 64 :31F RUNNING ON THE "‘XOR'' TESTER CHANGE 
:THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
MOV @MERRVEC,-(SP) ::SAVE THE CONTENTS. OF AME ERROR VECTOR 
MOV W5$,QHERRVEC i; FOR TIMEOUT 
TST a4#177060 ME OUT ON XOR? 
MCV (SP)+, A#ERRVEC : :RESTORE THE ERROR VECTOR 
BR SSVLAD :GO TO THE NEXT TEST 
5$: CMP (SP)+, (SP)+ :CLEAR THE STACK AFTER A TIME OUT 
MOV (SP) +, @#ERRVEC : RESTORE THE ERROR VECTOR 
BR 7 =LOOP ON THE PRESENT TEST 
6$::4HAAAEND OF CODE FOR THE XOR TESTERMMAA 
BIT #B1T08,aSWR ;:LOOP_ON SPEC. TEST? 
BEQ *BR IF NO 
CMPB a@SWR,STSTNM :30N THE RIGHT TEST?  SWR<7:0> 
BEQ SOVER ::BR IF YES 
2$: MOV 177766,CPSAVE :MOVE cPU ERR REG VALUE TO LOC FOR TST ;:DPMOO1 
BIT #BITOO,CPSAVE :SEE IF THE POWER MONITOR BIT IS ON -DPMOO01 
BEQ 2000$ ; CH TO CONT INUE ROUTINE IF CLEAR :DPMOO1 
BIC #81T00,177766 CLEAR THE BIT FOUND TO BE SET > DPMOO1 
EMT +177 *CALL SPECIAL POWER FAIL BIT ERROR CALL :DPMOO1 
CLRB  $ERFLG CL EAR THE ERROR FLAG = DPMOO1 
2000$: TSTB ERFLG S AN ERROR OCCURRED? 
BEQ SSVLAD ::BR F 
BIT #81T09.asuR LOOP ON ERROR? 
7$: MOV SLPERR, SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB = S$ERFLG : ZERO THE ERROR FLAG 
$SVLAD: INCB  $TSTNM T TEST ERS 
MOVB  $TSTNM, STESTN -:SET TEST NUMBER IN APT MAILBOX 
MOV (SP) ,$LPADR : SAVE SCOPE LOOP ADDRESS 
MOV (SP) .$LPERR ::SAVE ERROR LOOP ADDRESS 
CLR $ESCAPE CLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVB #1,$ERMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV $TSTNM, aDISPLAY : DISPLAY TEST NUMBER 
MOV SLPADR, (SP) FUDGE RETURN ADDRESS 
CPSAVE: .WORD 0 “LOCATION TO SAVE CPU ERR REG CONTENTS ;:DPMOO1 
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SEQUENCE 40 
ERROR HANDLER ROUTINE 
1787 .SBTTL ERROR HANDLER ROUTINE 
STMIS ROUTINE WILL INCREMENT THE ERROR FLAG AM@® THE ERROR CLINT. 
THIS ROUT INE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: sSAVE THE ERROR I TEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
AND GO TO ERRTYP ON ERROR 
a THE SWITCH OPT IONS PROVIDED BY THIS ROUTINE ARE: 
= #SW13 INHIBIT ERROR TYPEOUTS 
= *SW10 BELL ON ERROR 
tg LOOP ON ERROR 
** 
:* ERROR N : ERROR=EMT AND N=ERROR ITEM NUMBER 
003270 105037 003646 SERROR: CLRB  IBSAVE : CLEAR THE ITEM BYTE SAVE LOCATION :DPMOO01 
003274 104410 CKSWR >; TEST FOR CHANGE IN SOFT-SWR 
003276 010037 001162 MOV RO, $REGO :SAVE THE CONTENTS OF RO 
003302 010137 001164 MOV R1,$REG1 :SAVE THE CONTENTS OF R1 
003306 0108 7 001166 MOV Re. SREGE =SAVE THE CONTENTS OF R2 
00331 010337 001170 MOV R3,$REG “SAVE THE CONTENTS OF R3 
003316 010437 001172 MOV R4,$REG4 :SAVE THE CONTENTS OF R4 
003 2 010537 001174 MOV R5.$REGS5 >SAVE THE CONTENTS OF RS 
003326 113737 001102 001254 MOVB  $TSTNM,TESTNO :SAVE THE TEST NUMBER 
0033 105237 00110 7$: INCB = SERFLG :3SET THE ERROR FLAG 
003340 001775 BEQ 7$ *DON'T LET THE FLAG GO TO ZERO 
003342 013777 001102 175572 MOV STSTNM, @DISPLAY ; ;DISPLAY TEST NUMBER AND ERROR FLAG 
003350 032777 002000 175562 BIT #B1T10,aSWR ::BELL ON ERROR? 
003356 001402 BEOQ :iNO - SKIP 
003360 106401 001214 TYPE SBELL ::RING BELL 
003364 005237 001112 1$: INC SERTTL 7: COUNT THE NUMBER OF ERRORS 
003370 011637 001116 MOV SP) , SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
003374 162737 2 001116 SUB p 2, SERRPC 
003402 117737 175510 001114 MOVB aSERRPC$ ::STRIP AND SAVE THE ERROR ITEM CODE 
003410 122737 000177 001114 CMPB OS es#'177 sifem :SEE IF THIS IS THE POWER FAIL CALL :DPMO01 
003416 001426 BEQ 10018 “BRANCH AROUND ROUTINE IF IT IS > DPMOO 
003420 105737 003646 TSTB *SEE IF THIS IS THE OND. ERROR CALL : DPMOO 
003424 0010 1 BNE i =BRANCH IF SO > DPMOO 
003426 013737 177766 003266 MOV 177766,CPSAVE :MOVE CPU ERR REG TO CPSAVE FOR TEST  :DPMOO1 
003434 032737 1 003266 BIT ITOO,CPSAVE :SEE IF POWER MONITOR BIT IS SET : 
003442 001414 BEQ 1 *BRANCH IF > DPMOO 
003444 042737 1 177766 BIC #B1T00.177766  :CLEAR THE BIT FOUND SET > DPMOO 
003452 113737 001114 003646 MOVB 3 s$] IBSAVE MAKE IBSAVE NON-ZERO FOR DUAL CALL > DPMOO1 
003460 112737 000177 001114 MOVB #17 Site SET SITEMB TO SPECIAL POWER FAIL PNTR : 
00 00040 BR 001$ “BRANCH IBSAVE CLEARING :D 
003470 105037 003646 10008: CLRB  ~—s IBSAVE = CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT : 
003474 032777 020000 175436 BIT #81713, aSwWR ::SKIP TYPEOUT IF SET 
003502 001 BNE >:SKIP TYPEOUTS 
003504 004737 003650 JSR PC ERRTYP ::GO TO USER ERROR ROUTINE 
00 510 104401 0012217 ‘a TYPE .$CRLF 
3514 122737 000001 001244 CMPB = WAPTENV.SENV =; ; RUNNING IN APT MODE 
3522 001007 BNE ::NO,SKIP APT ERROR REPORT 
00354 113737 001114 003536 MOVB $ITEMB,21$ -:SET ITEM NUMBER AS ERROR NUMBER 
003532 004737 01 JSR PC, $ATY4 “REPORT FATAL ERROR TO APT 
aa9 000 21$: BYTE 
00353 000 “BYTE 0 
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ERROR HANDLER ROUTINE 


003540 900777 223: BR 22$ : APT ERROR LOOP 
003542 105737 003646 2$: TSTB IBSAVE : SEE IF POWER FAIL ERROR CALL ;DPMO01 
003546 001005 BNE 3$ BRANCH IF NOT = HALT NOT ALLOWED = DPMOO1 
003550 005777 175364 TST aSwWR ;HALT ON ERROR 
003554 100002 BPL 3$ THSKIP IF CONTINUE 
003556 HALT LT ON ERROR! 
003560 104410 CKSWR >: TEST FOR CHANGE IN SOFT=-SWR 
003562 032777 001000 175350 3$: BIT #B1T09,aSWR 3;;LOOP ON ERROR SWITCH SET? 
003570 001405 BEQ 4$ :3 F NO 
003572 105737 003646 TSTB IBSAVE SEE IF THIS IS THE PWR MNTR BIT ERROR ;DPMOO1 
003576 001256 BNE 7$ * BRANCH BACK IF SO = FUDGING NOT ALLOWED; DPMOO1 
013716 001110 MOV SLPERR, (SP) : : FUDGE RETURN FOR LOOPING 
005737 001212 4$: TST SESCAPE +3CH ECK FOR AN ESCAPE ADDRESS 
003610 001405 BEQ 5$ IF NONE 
003612 105737 003646 TSTB IBSAVE SEE IF THIS IS THE PWR MNTR BIT ERROR’ ;DPMOOl 
003616 Ov 1656 BNE = BRANCH BACK IF SO = FUDGING NOT ALLOWED: DPMOO1 
Oacse 013716 001212 5s MOV SESCAPE , (SP) +: FUDGE RETURN ADDRESS FOR ESCAPE 
003624 022737 036252 000042 CMP ASENDAD , 442 3zACT=-11 AUTO-ACCEPT? 
0036352 001001 BNE 6$ 3;BRANCH IF NO 
00 000000 HALT 7 YES 
003636 6$: 
003636 105737 003646 TSTB IBSAVE sSEE IF THIS IS THE PWR FAIL ERROR CALL ;DPMOO1 
ity eb; 001234 7$ :BRANCH BACK TO CALL ORIGINAL ERR IF SO = DPMO01 


é RTI ;RETUR 
003646 000000 IBSAVE: .WORD 0 :LOC'N TO HOLD $ITEMB DURING DUAL ERR ;DPMOO1 
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17 res, B83020 104401 001221 ERRTYP: TYPE ,SCRLF sTYPE <CRLF> 
010046 MOV RO, -(KSP) “SAVE RO. 
1595 003656 005000 CLR RO :PICKUP THE ITEM INDEX 
1798 003660 153700 001114 BISB a#SITEMB,RO 
1793 00 001004 BNE 1$ -rIF ITEM NUMBER IS ZERO. JUST 
179% :TYPE THE PC OF THE ERROR 
1799 003666 013746 001116 MOV SERRPC ,-(SP) £1 BAMDR ADORE FOR TYPEOUT 
1797 003672 104402 TYPOC >:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
1798 003674 000530 BR 13$ T OUT 
1799 003676 122 000177 1$: CMPB = #177..RO * SEE IF THIS ERROR CALL IS THE POWER MONITOR BIT CALL 
1800 003702 001003 BNE 100$ :BRANCH IF NOT 
1801 003704 012700 004172 MOV #PFECWS,RO :MOVE ADDRESS OF POWER MONITOR BIT ERROR TO RO 
1802 003710 000406 BR 110$ sBRANCH TO CALL THE ERR 
1803 003712 005300 100$: DEC RO sADJUST THE INDEX SO THAT IT WILL 
1804 003714 006300 ASL RO :WORK FOR THE ERROR TABLE. 
1805 003716 006300 ASL RO 
1806 003720 006300 ASL RO 
1807 003722 062700 001320 ADD #$SERRTB.RO FORM TABLE POINTER 
1808 003726 012037 003736 110$: MOV (RO) +,2$ *PICKUP “ERROR MESSAGE’’ POINTER 
1809 003732 001404 BEQ 3$ :SKIP TYPEOUT IF NO POINTER 
1810 003734 104401 TYPE ;TYPE THE "ERROR MESSAGE"' 
1811 003736 000000 2$: WORD 0 ;'ERROR MESSAGE'’ POINTER GOES HERE 
1812 003740 104401 001221 TYPE »SCRLF : "CARRIAGE RETURN’ & "LINE FEED" 
1813 003744 012037 003754 3$: MOV (RO) +,4$ :PICKUP ‘DATA HEADER’' POINTER 
1814 003750 001404 BEQ 5$ ;SKIP TYPEOUT IF 0 
1815 003752 104401 TYPE :TYPE THE ‘DATA HEADER’ 
1816 003754 000000 4$: .WORD 0 :'DATA HEADER’ POINTER GOES HERE 
1817 003756 104401 001221 TYPE »$CRLF :""CARRIAGE RETURN’ & ‘LINE FEED" 
1818 003762 010146 5$: MOV R1.=(KSP) “SAVE R1 
1819 003764 012001 MOV (RO)+,R1 “PICKUP "DATA TABLE’’ POINTER 
1820 003766 001472 BEQ 12$ :BR IF NO DATA TO BE TYPED 
1821 003770 012000 MOV (RO)+,RO PICKUP SDATA FORMAT’’ POINTER 
1822 003772 105710 6$: TSTB (RO) :18 IT T 0? 
1823 003774 001003 BNE 7$ IF < 
1824 :*THIS CODE IS FOR OCTAL 6-BITS F FORMAT (DF=0) 
1825 003776 013146 MOV a(R1)+,-(SP) ::SAVE a(R1)+ FPR TYPEOUT 
1826 004000 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
1827 004002 000456 BR 11$ 
1828 -*THIS CODE IS FOR DECIMAL FORMAT (DF=1) 
1829 004004 121027 000001 7$: CMPB (RO) #1 :1S IT FORMAT 1? 
1830 004010 001003 BNE CH IF NO 
1831 004012 013146 MOV a(R1)+,-(SP) «SAVE a(R1)+ FOR TYPEOUT 
1832 004014 104405 TYPDS ::G0 TYPE=-DECIMAL ASCII WITH SIGN 
1833 004016 000450 BR 11$ 
1834 -*THIS CODE IS FOR BINARY FORMAT (DF=2) 
1835 004020 121027 000002 8S: CMPB —s_: (RO) , #2 31S IT FORMAT 2 
1836 004024 001003 BNE H 
1837 004026 013146 MOV a(R1)+,-(SP) i SAVE airide FOR TYPEOUT 
1838 004030 104406 TYPBN TYPE=-BINARY ASCII 
1839 004032 000442 BR 11$ 
1840 -*THIS CODE IS FOR OCTAL (22-BIT) ORMAT (DF=3) 
1841 004034 121027 000003 9s: CMPB (RO) #3 :1$ IT FORMAT 3? 
1842 004040 001011 BNE 15$ CH IF NO 
1843 004042 012146 MOV (R1)+,-(KSP) *PUT ADDRESS OF FIRST LOC. ON STACK 
1844 004044 004737 007066 JSR PC, $DB20 “CONVERT TWO LOCS. TO AN ASCII STRING 
1845 004050 062716 000003 ADD #3. (KSP) “ONLY NEED 8 CHARACTERS NOT 11 








— a 


1846 004054 
1847 004060 
1848 004062 
1849 
1850 004064 
1851 004066 
1836 004070 
1853 004072 
1854 004074 
1855 004100 
1856 004104 
1857 004110 
1858 004114 
1859 004120 
1860 seet os 
1861 0041 
1862 004132 
1863 004134 
1864 004136 
1865 004140 
1866 004142 
1867 004144 
1868 004150 
1869 004152 
1870 004154 
1871 004156 
1872 004160 
1873 004164 
1874 004166 
1875 004171 
1876 004172 
004200 
1877 
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127 


MMVEBO——% CO—]VMFO—]=f 
NOCOUNW ARNWORNAO 


MOV (KSP)+,10$ 
TYPE 

i5$ ; 
MOV R3,-(KSP) 
MOV a(R1)+,R3 
CLR R2 
ASHC 4#6.R2 
MOV R2.$TMP4 
MOV R3,$TMP5 
MOV #STMP4 ,-(KSP) 
JSR PC, $DB20 
ADD #3, (KSP) 
MOV (KSP)+,16$ 
TYPE 

16$: .WORD 0 
MOV (KSP)+,R3 
MOV (KSP)+,R2 

11S: TST (R1) 
BEQ 12$ 
TYPE ,14$ 
TSTB ~—s_ (RO) + 
BR 6$ 

12$: MOV (KSP)+,R1 

13$: MOV (KSP)+_RO 
TYPE /SCRLF 
RTS PC 

14$: ASCIZ / / 
.BYTE 

PFECWS: .WORD 

PFECEM: .ASCIZ 

PFECDH: .ASCIZ 
.EVEN 

PFECDT: .WORD 

PFECDF: .BYTE 0.0.0.0 


SEQUENCE 


;PUT ADDRESS OF ASCII CHARS. AT 10$ 
TYPE OCTAL VALUE OF 22=-BIT BINARY NO. 


10$: -WORD 0 
;*THIS CODE IS FOR OCTAL (22-BIT) FORMAT FOR A PAR LEFT SHIFTED 6 (DF=4) 
: MOV R2,-(KSP) 


3 SAVE a ON STACK 

7SAVE R3 ON STACK 

;LOAD DATA WORD INTO R3 

3R2 HOLDS UPPER SIX BITS OF NUMBER 
;SHIFT VALUE LEFT 6 TIMES 

sHOLDS LOWER 16 BITS OF ADDRESS 
sHOLDS UPPER 6 BITS OF ADDRESS 

zPUT ADDRESS OF LOWER BITS ONTO STACK 
;CONVERT TWO LOCS. TO AN ASCII STRING 
;ONLY NEED 8 CHARACTERS NOT 11 

;PUT ADDRESS OF ASCII CHARS. AT 16$ 

: TYPE OCTAL VALUE OF 22-BIT BINARY NO. 


sRESTORE R3 
s;RESTORE R2 
;IS THERE ANOTHER NUMBER? 


3sBR IF 
ZTYPE TWO.c) SPACES 
:POINT TO NEW ‘DATA FORMAT’’ 


: LOOP 

“RESTORE R1 

“RESTORE RO 

“CARRIAGE RETURN’ & ‘LINE FEED’ 
“TWO(2) SPACES 


0 
PFECEM,PFECDH,PFECDT ,PFECDF 
?POWER MONITOR BIT WAS FOUND SET? 


?7TESTNO ERR PC CPUERR? 


STESTN, SERRPC,CPSAVE ,0 
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TY INPUT ROUTINE 


| 1882 -SBTTL TTY INPUT ROUTINE 
Petri ti iiii ii titi tiie iis t iii i iit iti iii ii iitiiitiiitiiiii iii T 

- ENABL LSB 

eet iit iti i iii irri iii iiiiiiiiitiit titi titi titi it 

:*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

> *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

gsWHEN — IN TTY FLAG MODE. 


004306 022737 000176 001140 $ckS #SWREG, SWR ::1S THE SOFT-SWR SELECTED? 
004314 001114 * ONE 15$ : BRANCH IF NO 
004316 105777 174622 TSTB «= aSTKS i 3 CHAR THERE ? 
004322 100111 BPL 15$ -IF NO, DON'T WAIT AROUND 
004324 117746 174616 MOVB a$TKB,-(SP) ; 7 SAVE HE CHAR 
004330 042716 177600 BIC #°C177, (SP) >:STRIP=OFF THE ASCII 
004334 022726 000007 CMP #7, (SP)+ -:1S IT A CONTROL G? 
004340 001102 BNE 158. ::NO, RETURN TO USER 
004342 123727 001134 000001 CMPB  $AUTOB, #1 : TARE WE RUNNING IN AUTO-MODE? 
004350 001476 BEQ 15$ :BRANCH IF YES 
004352 104401 005253 TYPE ,SCNTLG ::ECHO THE CONTROL-G (*G) 
004356 104401 005260 SGTSWR: TYPE »SMSWR :: TYPE CURRENT CONTENTS 
004362 013746 000176 MOV SWREG, -(SP) i: SAVE SWREG FOR TYPEOUT 
004366 104402 TYPOC 0 TyPE--OCTAL ASCII(ALL DIGITS) 
004370 104401 005271 TYPE , SMNEW ::PROMPT FOR NEW SWR 
004374 005046 19$: CLR =(SP) ::CLEAR COUNTER 
004376 005046 CLR ~(SP) 7: THE NEW SWR 
004400 105777 174540 7$: TSTB = a$TKS >=CHAR THERE? 
004404 100375 BPL 7$ >:IF NOT TRY AGAIN 
004406 117746 174534 MOVB  a$TKB,-(SP) ::PICK UP CHAR 
004412 042716 177600 BIC #°C177, (SP) : =MAKE IT 7-BIT ASCII 
004416 021627 000003 CMP (SP) # :31$ IT A CONTROL~C? 
004422 001015 BNE 9$ =BRANCH IF NOT 
004424 104401 001312 TYPE »$SCNTLC :3 YES, ECHO CONTROL-C (*C) 
004430 062706 000006 ADD #6, AN UP STACK 
434 123727 001135 000001 CMPB = $INTAG, #1 ; ;REENABLE TTY KEYBOARD INTERRUPTS? 
004442 001003 BNE CH IF NO 
004444 012777 000100 174472 MOV #100, a$TKS ; ZALLOW TTY KEYBOARD INTERRUPTS 
004452 000137 005302 8$: JMP CNTRLC :CONTROL=C RESTART 
004456 021627 000025 9$: CMP (SP) #25 yf IT A CONTROL-U? 
004462 001005 BNE 10$ =BRANCH IF NOT 
004464 104401 005246 TYPE .SCNTLU 35 YES. ECHO CONTROL-U (“U) 
004470 062706 000006 20$: ADD #6, SP 33 E PREVIOUS INPUT 
004474 000737 BR 19 *:LET'S TRY IT AGAIN 
004476 021627 000015 10$: CMP (SP) #15 *:1§ IT A <CR>? 
004502 001022 BNE 16$ : BRANCH IF NO 
004504 005766 000004 TST 4(SP) 3: YES, IS IT THE FIRST CHAR? 
004510 001403 BEQ 11$ 3 CH IF YES 
004512 016677 000002 174420 MOV 2(SP) ,aSWR >: SAVE NEW SWR 
004520 062706 000006 11$: ADD #6,SP >: CLEAR UP STACK 
ease 104401 001221 14$: TYPE SCRLF ::ECHO <CR> AND <LF> 
004530 123727 001135 000001 CMPB  $INTAG,#1 > :RE-ENABLE TTY KBD INTERRUPTS? 
004536 oor es BNE 15$ : ;BRANCH IF NOT 
004540 012777 000100 174376 MOV #100, a$TKS :*RE-ENABLE TTY KBD INTERRUPTS 
004 546 2 15$: RTI * =RETURN 
004550 004737 005644 16$: JSR PC, $TYPEC >:ECHO CHAR 
004554 021627 000060 CMP (SP) , 460 >: CHAR < 0? 
004560 002420 BLT 1 * BRANCH IF YES 
004562 021627 000067 CMP (SP) ,#67 **CHAR > 7? 
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RRA 


o-NO 


srasaesss 
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000060 
000002 


000002 
177776 
001220 


000004 
174300 


174274 
177600 
000004 
174246 
174242 
177600 
000021 
000004 
000004 
000004 
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005236 
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000002 


000004 
000004 
000023 


000021 
000140 
000175 
000004 


17$: 


18$: 
- DSABL 


a ——— eee 
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) 
~2(SP), (SP) 


$ 
SQUES 
20$ 


SEQUENCE 


;BRANCH IF 

:i STRIB-OFF ASCII 

:IS THIS a FIRST CHAR 
ANCH YES 


: SIMULATE CONTROL -U 


J EERE EEEKEEEEEEEEEEKEEEEKEEEEEKEKEKEEEKEEEEEEEEREKEKEEKKKEE 


:STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;* : 


« 
* 


SRDCHR: 


1$: 


2$: 


3$: 


4$: 


> *CA 


SRDLIN: 


1$: 
2$: 


RDCHR 
RETURN HERE 


(SP) ,-(SP) 
4 (SP), 2(SP) 
astk 


a$TKB,-(SP) 
Scie? (SP) 
(SP)+, #21 
2$ 

1$ 

4(SP) ,A#SXON 
4(SP) #140 
4 (SP) #175 


#40,4(SP) 


RDLIN 
RETURN HERE 


ws -(SP) 

(SP) 

#$T TTYIN,RS 
#STTYINGS. .R3 


(SP)+, (R3) 
#3, (R3) 


4h os A SINGLE ag oe FROM THE TTY 
: CHARACTER IS ON THE STACK 
:;WITH PARITY BIT STRIPPED OFF 


7ZPUSH DOWN THE PC 

ater Hp PS 

327A CHARACTER 

;;READ THE TTY 

44 RID OF JUNK IF ANY 
S IT A CONTROL~S? 

sé CH IF NO 


7ZWAIT FOR A CHARACTER 

;z;LOOP UNTIL ITS THERE 

::GET CHARACTER 

7zMAKE IT 7-BIT ASCII 

$sa5 IT A CONTROL-Q? 

sie ay DISCARD IT 

;RANOO1 
= RANOO1 


R 
SEAR AKEEKREKEEEKREEKEEEEEKEREREAREEEEEKEEEEKEEEEEEEEEREREKREKEERE 


:STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


:; INPUT A STRING FROM THE TTY 
3 ne OF FIRST CHARACTER WILL BE ON THE STACK 
- a WILL BE A BYTE OF ALL O'S 


R3 
++ Or EAR THE RUBOUT KEY 
i: ADDRESS 

; ;BUFFER FULL? 

:;BR IF YES 

:>:GO READ ONE CHARACTER FROM THE TTY 


=:GET CHARACTE 
*:IS IT A CONTROL-C? 
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INPUT ROUTI 
005006 001006 BNE 10$ ; BRANCH IF NO 
005010 104401 001312 TYPE ,SCNTLC :: TYPE A CONTROL-C (*C) 
005014 005726 TST (SP) + >:CLEAN RUBOUT KEY OFF OF THE STACK 
005016 012603 MOV (SP)+,R3 > :RESTORE 
005020 000137 005302 JMP CNTRLC ::GOTO CONTROL-C RESTART 
005024 122713 000177 10S: CMPB =s-_« #177, (R3) -:1$ IT A RUBOUT 
0050 001022 BNE 5$ :;BR IF NO 
005032 005716 TST (SP) 7:1$ THIS THE FIRST RUBOUT? 
005034 001007 BNE 5% ::BR IF NO 
005036 112737 000134 005234 MOVB #'\,9$ :: TYPE A BACK SLASH 
005044 104401 005234 TYPE < 
005050 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
005054 005303 6S: DEC R3 : :BACKUP BY ONE 
005056 020327 005236 CMP R3,MSTTYIN ::STACK EMPTY? 
005062 103434 BLO s3 F YES | 
5 111337 005234 MOVB (R3) ,9$ ::SETUP TO TYPEOUT THE DELETED CHAR. | 
005070 104401 005234 TYPE 9$ i YPE | 
005074 000735 BR * ::G0 READ ANOTHER CHAR. | 
005076 005716 5$: TST (SP) ;;RUBOUT KEY SET? | 
005100 001406 BEQ 7$ ::BR IF NO 
005102 112737 000134 005234 MOVB so #'\ 9S ::TYPE A BACK SLASH 
005110 104401 005234 TYPE P 
005114 005016 CLR (SP) ::CLEAR THE RUBOUT KEY 
005116 122713 000025 7$: CMPB =s-s #25, (R3) ::1S CHARACTER A CTRL U? 
005122 001003 BNE $ ::BR IF NO 
005124 104401 005246 TYPE SCNTLU ::TYPE A CONTROL ‘'U'' 
005130 000715 BR ::GO0 START OVER 
005132 122713 000022 8$: CMPB =s-s #22, (R3) 7:1S CHARACTER A ‘“*R’’? 
005136 001011 BNE 3$ 3: CH IF NO 
005140 105013 CLRB (R3) ::CLEAR THE CHARACTER 
005142 104401 001221 TYPE »SCRLF s:TYPE A CR’ & LF’ 
005146 104401 005236 TYPE STTYIN ::TYPE THE INPUT STRING 
005152 000706 BR 3$ =:GO PICKUP ANOTHER CHACTER 
005154 104401 001220 4$: TYPE $QUES ::TYPE A '?° 
005160 000701 BR 3;;CLEAR THE BUFFER AND LOOP 
005162 111337 005234 3$: MOVB (R3),9$ : ECHO THE CHARACTER 
005166 104401 005234 TYPE 9S 
005172 122723 000015 CMPB #15, (R3)+ :; CHECK FOR RETURN 
005176 001274 BNE ib IF NOT RETURN 
005200 105063 177777 CLRB =1(R3) ::CLEAR RETURN (THE 15) 
005204 104401 001222 TYPE $LF ::TYPE A LINE FEED 
005210 005726 TST (SP) + ::CLEAN RUBOUT KEY FROM THE STACK 
005212 012603 MOV (SP)+,R3 s RESTORE R3 
005214 011646 MOV (SP), =(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
005216 01 000004 000002 MOV 4(SP) ,2(SP) 3 FIRST ASCII CHARACTER ON IT 
005224 012766 005236 000004 MOV #$TTYIN,4(SP) 
005232 000002 RTI ; sRETURN 
5234 000 9$: BYTE 0 >:STORAGE FOR ASCII CHAR. TO TYPE 
005235 000 BYTE QO 3: TERM 
5236 $TTYIN: .BLKB 8. ;;RESERVE 8 BYTES FOR TTY INPUT 
005246 136 125 015 $CNTLU: .ASCIZ /*U/<15><12>  =:CONTROL 'U 
005251 012 000 hae 
005253 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> ::CONTROL ‘'G 
005256 012 000 
005260 015 012 123 SMSWR: .ASCIZ <15><12>/SWR = / 
005263 127 122 040 
5266 075 040 000 
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116 SMNEW: .ASCIZ / NEW = / 
040 


040 040 
005274 105 127 
075 040 000 


eee eee +e _-_-— 
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CONTROL-C SERVICING ROUTINE 


ieee ~SBTTL CONTROL-C SERVICING ROUTINE 
Hy 005 013737 001232 001210 CNTRLC: MOV SPASS ,STMP5 GET THE VALUE OF ‘‘$PASS"’ 
1 531 5237 001210 INC STMP5 ;FORM CURRENT PASS # 
1889 005320 113737 001162 005354 MOVe $TSTNM.1S © =:SAVE TEST NUMBER 
a3 098 § o1374 005354 wher 1$,-(SP) ;SAVE 1$ FO TYPEOUT 
TYPE 2$ 

1898 3 0 073746 001310 MOV $TMP5 ,~(SP) ;SAVE STMPS FOR TYPEOUT 
1894 4 10440 TYPDS TYPE ASCII DECIMAL WITH SIGN 
1895 005346 104407 GTSWR sASK_FOR NEW SWR VALUE 
1896 005350 000137 036026 JMP SEOP+2 : JUMP TO END OF PASS + 2 
1897 ete 000000 1$: -WORD 0 s TEST # BUFFER 
1898 005356 040 040 000 2$: ASCIZ / / :@ SPACES & STOP MESSAGE 
1899 etd 112 125 115 CMSG:  .ASCII /JUMPING TO END OF PASS/<15><12> 

005 120 111 116 

005367 107 040 124 

Reg 117 040 105 

537 116 104 040 

003408 «120s 10hSs«183 

005406 123 015 012 
1900 005411 124 105 123 ~ASCIZ /TESTNO PASSNO/<15><12> 

005414 124 116 117 

005417 011 120 101 

pees 123 123 116 

005425 117 015 012 

005430 000 


EVEN 


3 
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TYPE ROUTINE 


1903 -SBTTL TYPE ROUTINE 
J AAA AEAAEAEAREEAEEAEAKAEAAERAAARKEARKKKEKEKRKAAARERAREE EE 
**ROUTINE TO TYPE ASCIZ MESSAGE . MESSAGE MUST TERMINATE WITH A O BYT 
>*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
: *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
= *NOTE2 SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
> *NOTE3 SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
*CALL: 
#1) USING A TRAP INSTRUCTION 
a YPE ,MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
Z 
+t TYPE 
: MESADR 
** 
005432 105737 001157 $TYPE: TSTB  $TPFLG :z1S THERE A TERMINAL? 
54 100002 BPL 1$ 33 FY 
005440 000000 HALT ::HALT HERE IF NO TERMINAL 
005442 000430 BR 3$ 7: LEAVE 
005444 010046 1$: MOV RO.-(SP) >: SAVE R 
005446 017600 000002 MOV BO tSP). RO ::GET ADDRESS OF ASCIZ STRING 
005452 122737 000001 001244 CMPB #APTENV,SENV  ::RUNNING IN APT 
5460 001011 BNE ;7NO,GO CHECK FOR APT CONSOLE 
005462 132737 000100 001245 BITB $$ #APTSPOOL,SENVM : ; SPOOL MESSAGE TO APT 
005470 001405 BEQ 62$ : O CHECK FOR CONSOLE 
005472 010037 005502 MOV RO,61$ $3 Se fuP MESSAGE ADDRESS FOR APT 
005476 004737 006004 JSR PC. $ATY3 3 L MESSAGE TO AP 
005502 000000 61$: . WOR MESSAGE ADDRESS 
005504 132737 000040 001245 62S: BITB §$ #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
005512 001003 BNE ::YES.SKIP TYPE OU 
005514 112046 2$: MOVB (RO)+,=(SP) ; SPUSH CHARACTER TO BE TYPED ONTO STACK 
005516 001005 BNE 4$ :BR IF IT ISN'T THE TERMINATOR 
005520 005726 TST (SP) + >: IF TERMINATOR POP IT OFF THE STACK 
005522 012600 60$: MOV (SP) + RO ::RESTORE RO 
005524 062716 000002 3$: ADD 2, (SP) >: ADJUST RETURN PC 
0055 000002 RTI 3 zRET 
005532 122716 000011 4$: CMPB = HHT, (SP) > BRANCH IF <HT> 
005536 001430 BEQ 
005540 122716 000200 CMPB  =s-« CRLF, (SP) : BRANCH IF NOT <CRLF> 
005544 001006 BNE 
005546 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
005550 1044017 TYPE ::TYPE A CR AND LF 
005552 001221 SCRLF 
005554 105037 005772 CLRB § $CHARCNT ::CLEAR CHARACTER COUNT 
005560 000755 BR 2$ ;3GET_NEXT CHARACTER 
005562 004737 005644 5$: JSR PC $TYPEC =GO TYPE THIS CHARACTER 
005566 123726 001156 6S: CMPB soSFILLC.(SP)+  ::1S$ IT TIME FOR FILLER CHARS.? 
005572 001350 BNE t :: IF NO GO GET NEXT 
005574 013746 001154 MOV $NULL ,- (SP) : 2GET # OF FILLER CHARS. NEEDED 
005600 105366 000001 7$: DECB~—s.-«A SP) >:DOES A NULL NEED TO BE TYPED? 
5604 002770 BLT 6$ ::BR IF NO- -GO POP THE NULL OFF OF STACK 
5606 004737 005644 JSR PC .$TYPEC -:G0 TYPE A NULL 
005612 105337 005772 DECB $CHARCNT ::D0 NOT COUNT AS A COUNT 
005616 770 BR $3 
“HORIZONTAL TAB PROCESSOR 
005620 112716 000040 8s: MOVBe#':=«C (SP) : REPLACE TAB WITH SPACE 
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TYPE ROUTINE 


0056 4 085737 005644 9$: JSR PC. $TYPEC :: TYPE A SPACE 
56 1327 7 000007 005772 BITB #7.$CHARCNT >:BRANCH IF NOT AT 
0056 BNE 9$ :3TAB STOP 

5640 009726 TST (SP)+ :POP SPACE OFF STACK 

5642 726 2$ ::GET NEXT CHARACTER 
005644 S$TYPEC: 
005644 105777 173274 TSTB = @STKS ::CHAR IN KYBD BUFFER? :MJD001 
005650 100022 BPL 10$ ;3BR_IF NOT >MJD001 
005652 017746 173270 MOV a$TKB,-(SP) “GET CHAR “MJDO01 
005656 042716 177600 BIC #177600, (SP) >: STRIP EXTRANEOUS BITS =MJDO01 
005662 122716 000023 CMPB es SXOFF., (SP) *:WAS CHAR XOFF *MJD001 
005666 001012 BNE 102$ >:BR IF NOT *MJDOO1 
005670 101$: =MJD001 
005670 105777 173250 TSTB =s-_ @STKS ::WAIT FOR CHAR =MJD001 
005674 100375 BPL 101$ >MJD001 
00567 117716 173244 MOVB = a$TKB, (SP) ::GET CHAR =MJD001 
005702 042716 177600 BIC #177600,(SP) § $:STRIP IT “MJD001 
005706 122716 000021 CMPB —s-s HS XON, (SP) *:WAS IT XON? =MJD001 
005712 001366 BNE 101$ ::BR IF NOT =MJD001 
005714 102$: =MJD001 
005714 005726 TST (SP) + ::FIX STACK =MJD001 
005716 10$: =MJDO01 
005716 105777 173226 TSTB ~=—s-_ aSTPS ::WAIT UNTIL PRINTER IS READY 
005722 100375 BPL 10$ :MJD001 
005724 126627 000002 000021 CMPB = 2( SP) , ASXON ::1S CHARACTER A RANDOM XON? = RANOO1 
005732 001420 BEQ STYPEX ::BRANCH IF YES = RANOO1 
005734 116677 000002 173210 MOVB  2(SP).a$TPB : LOAD CHAR TO BE TYPED INTO DATA REG. 
005742 122766 000015 000002 CMPB ss # CR, 2 (SP) 71S CHARACTER A CARRIAGE RETURN? 
005750 001003 BNE 1$ > :BRANCH IF NO 
005752 105037 005772 CLRB SCHARCNT :EYES~~CLEAR CHARACTER COUNT 
005756 000406 BR $TY XIT 
005760 122766 000012 000002 1$: CMPB aLF. PE tSP) Hs CHARACTER A LINE FEED? 
005766 001402 BEQ STYPEX CH IF YES 
005770 105227 INCB = (PC) + ::COUNT THE CHARACTER 
005772 000000 $CHARCNT:.WORD 0 >: CHARACTER COUNT STORAGE 
005774 000207 $TYPEX: RTS PC 
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1904 .SBTTL APT COMMUNICATIONS ROUTINE 
5 SEAR AEA A AEA AEE ERAREREEERAKREEEKREEERRERRR EEE 
005776 112737 000001 006242 $ATY1: MOVB 4#1,$FFLG :2T0 REPORT FATAL ERROR 
112737 000001 006240 $ATY3: MOVB #1.$MFLG ::TO TYPE A MESSAGE 
006012 03 BR SATYC 
006014 112737 000001 006242 SATYG: MOVB #1,$FFLG ::T0 ONLY REPORT FATAL ERROR 
0060 ; 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
006024 010146 MOV R1,-(SP) *>PUSH R1 ON STACK 
0060 $ 105737 006240 TSTB = SMFLG >:SHOULD TYPE A MESSAGE? 
0060 1450 BEQ 5$ *:IF NOT: 
006034 122737 000001 001244 CMPB #$ #APTENV,SENV  ::OPERATING UNDER APT? 
006042 1031 BNE $ iif : 
006044 132737 000100 001245 BITB § #APTSPOOL,SENVM ;;SHOULD SPOOL MESSAGES? 
006052 001425 BEQ IF : 
006054 017600 000004 MOV a4(SP).RO -:GET MESSAGE ADDR. 
062766 000002 000004 ADD #2,4(SP) *: RETURN ADDR. 
005737 001224 1$: TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
006072 001375 BNE 1$ *:IF NOT: WAIT 
006074 010037 001240 MOV RO. $MSGAD ::PUT ADDR IN MAILBOX 
006100 105720 2$: TSTB  =—s_« (RO) + ::FIND END OF MESSAGE 
006102 001376 BNE 2$ 
006104 163700 001240 SUB SMSGAD ,RO ::SUB START OF MESSAGE 
006110 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
006112 010037 001242 MOV RO, $MSGLGT *:PUT LENGTH IN MAILBOX 
006116 012737 000004 001224 MOV #4, $MSGTYPE ::TELL APT TO TAKE MSG. 
006124 000413 BR 
006126 017637 000004 006152 3S: MOV a4(SP),4$ :zPUT MSG ADDR IN JSR LINKAGE 
006134 062766 000002 000004 ADD #2,4(SP) - >BUMP RETURN ADDRESS 
006142 013746 177776 MOV 177776,-(SP) ::PUSH 177776 ON STACK 
006146 004737 005432 JSR PC $TYPE =:CALL TYPE MACRO 
a a. — 
006154 105737 006242 10$: TSTB =. SFFLLG ::SHOULD REPORT FATAL ERROR? 
006160 001416 BEQ 12$ si lf T: 
006162 005737 001244 TST SENV : RUNNING UNDER APT? 
006166 001413 BEQ 12$ ::IF NOT: BR 
006170 005737 001224 11$: TST SMSGTYPE : FINISHED LAST MESSAGE? 
006174 001375 BNE *:IF NOT: WAIT 
006176 017637 000004 001226 MOV a4(SP),$FATAL ::GET ERROR # 
006204 062766 000002 000004 ADD #2,4(SP) ::BUMP RETURN ADDR. 
006212 005237 001224 INC SMSGTYPE ::TELL APT TO TAKE ERROR 
006216 105037 006242 12$: CLRB = SFFLLG *:CLEAR FATAL FLAG 
0062 2 105037 006241 CLRB ~=s_« SLF LG :: CLEAR LOG FLAG 
6 105037 006240 CLRB = SMFLG >: CLEAR MESSAGE FLAG 
006232 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
006234 012600 MOV (SP)+,R0 =:POP STACK INTO RO 
006236 000207 TS PC + = RETURN 
006240 000 SMFLG: .BYTE 0 : ;MESSG. FLAG 
006241 000 LG: .BYTE 0 38 F 
006242 000 SFFLG: .BYTE 0 > :FATAL FLAG 
000200 APTSIZE=200 
000001 APTENV=001 
000100 APTSPOOL=100 
| 000040 APTCSUP=040 
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SEQUENCE 


- SBTTL BINARY TO ASCII AND TYPE ROUTINE 


FERRARA AREER REAR AERA EREERERERERERRRY RARER EE 


S THIS ROUTINE IS USED TO ee iT. 16-BIT BINARY NUMBER TO A 16-BIT 


i #BINARY~ASCII NUMBER AND T 
it MOV NUMBER, - (SP) 
= te TYPBN 
$TYPBN: MOV R1,-(SP) 
MOV 6(SP).R1 
SEC 

1$: MOVB #'0.$BIN 
ROL R1 
BEQ 2$ 
ADCB $BIN 
TYPE ,$BIN 
CLC 
BR 

2$: MOV (SP)+,R1 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RTI 

$BIN: .BYTE 0,0 





; NUMBER TO BE TYPED 

33 TYPE IT 

cs gaye R1 Tom Ns STACK 
T NUMBER 


Tt $0 ¢ O CAN KEEP TRACK 
333 SET CHARACTER TO AN ASCII 
seer HIS BIT 


e? 
: NO--SET a CHARACTER EQUAL TO THIS BIT 
::GO_ TYPE THIS BIT 

7; CLEAR Pipa sO ae TRACK OF BITS 


THE STACK INTO R1 
 TADJUST THE STACK 


;sRETURN TO USER 
;:STORAGE FOR ASCII CHAR. AND TERMINATOR 


OF, ,THE NUMBER OF BITS 


em a ee eet 


52 
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1906 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
eerie riti iit tie titi titi i lititiiii iii ittititiiit iii it it it 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6=-DIGIT 
7*OCTAL (ASCII) NUMBER AND TYPE IT. 
;*STYPOS--~-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


7*CALL: 

:* MOV NUM ,~ (SP) ; NUMBER TO BE TYPED 

: TYPOS 77CALL FOR TYPEOUT 

3* -BYTE WN zzN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* BYTE ::M=1 OR O 

:* 331=TYPE LEADING ZEROS 

;* ;;0=SUPPRESS LEADING ZEROS 


* 

;*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
uae OR STYPOC 

** ° 


;* MOV NUM, ~ (SP) : NUMBER TO BE TYPED 
+ TYPON ::CALL FOR TYPEOUT 
**® 
: s$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*® 2 
:* MOV NUM, = (SP) : NUMBER TO BE TYPED 
-* TYPOC 7:CALL FOR TYPEOUT 
006320 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
006324 116637 000001 006543 MOVB  1(SP),$OFILL ::LOAD ZERO FILL SWITCH 
006332 112637 006545 MOVB (SP)+,$OMODE+1 :: R OF DIGITS TO TYPE 
006 062716 000002 ADD #2, (SP) : ADJUST RETURN ADDRESS 
006342 000406 BR $TYPON 
006 114737 000001 006543 $TYPOC: MOVB #1,S$0FILL :rSET THE ZERO FILL SWITCH 
006352 112737 000006 006545 MOVB  #6,S$OMODE+1 ::SET FOR SIX(6) DIGITS 
006360 112737 000005 006542 STYPON: MOVB 4#5.S$0CNT ::SET THE ITERATION COUNT 
006366 010346 MOV R3,-(SP) ::SAVE R3 
006370 010446 MOV R4,-(SP) ::SAVE RG 
006372 010546 MOV R5,-(SP) si SAVE RS 
006374 113704 006545 MOVB S$OMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
006400 005404 NEG R4 
006402 062704 000006 ADD #6,R4 : SUBTRACT IT FOR MAX. ALLOWED 
006406 110437 906544 MOVB  R4,$OMODE ::SAVE IT FOR USE 
006412 113704 006543 MOVB ILL,R4 ::GET THE ZERO FILL SWITCH 
0064 16 016605 000012 V 1e(SP) ,R5 ::PICKUP THE INPUT NUMBER 
00662 005003 CLR R ;;CLEAR THE OUTPUT WORD 
006424 105 1$: ROL R5 ::ROTATE MSB INTO "'C 
0064 04 3R 3$ :;G0 DO MSB 
9064 105 2s: ROL R =:FORM THIS DIGIT 
105 ROL R 
0064 34 105 ROL S 
006436 010503 MOV R5,R3 
006440 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
006442 105337 006544 DECB  $OMODE =:TYPE THIS DIGIT? 
006446 100016 BPL 33 F NO 
00645 04 03 177770 BIC #177770,R3 ::GET RID OF JUNK 
0064 54 1002 BNE 4$ 3 FOR 0 
5 4 TST R4 >: SUPPRESS THIS 0? 
1403 BEQ 5$ ::BR IF YES 
4$: INC R4 =:DON'T SUPPRESS “ANYMORE 0'S 
006464 052 03 000060 BIS #°0O,R3 ::MAKE THIS DIG!; ASCII 
006470 05270 0 S$: BIS #" (R3 -:MAKE ASCII Ir NOT ALREADY 
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DE: .WORD 
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SEQUENCE 


7:SAVE FOR TYPING 
+260 hig # a DIGIT 


: BR . MORE TO DO 


230K 1 LAST DIGIT ISN'T A BLANK 


3:G0 DO THE LAST DIGIT 
s RESTORE RS 
33 one R4 


: :RESTORE R3 
7zSET THE STACK FOR RETURNING 
;RETURN 
: STORAGE FOR ASCII DIGIT 
RMINATOR FOR TYPE ROUTINE 
OUNTER 


7-ZERO FILL SWITCH 
; ;NUMBER OF DIGITS TO TYPE 


54 
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sesesesesss 
NNSRSSENSSS 


S=28=8 


Son 


1 
105 


FMAlLofnr 
Nm NIWIWG 


100407 


Ww 
aor 
-O0o-—— — 
Pao th grt 
MOrnnQw 


S 
SMMNOO 


~ 
MMA NOWNNWWNA NORM 


Sseeec 
Noes 


— tt mt mt OI OOO = 
Sooo S 
= MIWA 
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1 
1 
1 
1 
0 
0 
0 
0 
0 
1 


R 
S 
> ] 
—- 





020200 
000020 
000055 
006762 
000040 


006752 


000001 
000060 
000040 


000010 


177777 


006762 
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177776 


D. 5 
12-JAN~82 12:19 PAGE 47 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 





M1113 SEQUENCE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
{RAAT REE EEE EERE EKER EEE 
<STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
; *S1GNED DECIMAL (ASCII) ER TYPE IT. DEPENDING ON WHETHER THE 
: sNUMBER 1s POSITIVE OR NEGATIVE. A SPACE OR A MINUS SIGN WILL BE TYPED 
‘BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: SREPLACED WITH SPACES. 
-* : 
it MOV NUM, - (SP) ::PUT THE BINARY NUMBER ON THE STACK 
te TYPDS =:GO TO THE ROUTINE 
$TYPDS: 
MOV RO,-(SP) ; PUSH RO ON STACK 
MOV R1.-(SP) =:PUSH R1 ON STACK 
MOV R2,-(SP) ::PUSH R2 ON STACK 
MOV R3.-(SP) ::PUSH R3 ON STACK 
MOV R5.-(SP) ;;PUSH_R5 ON STACK 
MOV #20200, -(SP) :SET BLANK SWITCH AND SIGN 
MOV 20(SP) .R5 >:GET THE INPUT E 
BPL 1$ ::BR IF INPUT IS POS. 
NEG R5 7 ;MAKE THE BINARY NUMBER POS 
MOVB #'=,1(SP) ::MAKE THE ASCII NUMBER 
$ CLR RO ;3ZERO THE CONSTANTS INDEX 
MOV #$DBLK,R3 :SETUP THE OUTPUT POIN 
MOVB #' ,(R3)+ ::SET THE FIRST CHARACTER TO A BLANK 
2$ CLR :: CLEAR THE BCD NUMBER 
MOV SDTBL(RO).R1  ::GET THE CONSTANT 
3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
BLT 4$ ::BR IF DONE 
INC Re >: INCREASE THE BCD DIGIT BY 1 
4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
TST R2 :3CHECK IF BCD DIGIT=0 
5$ :FALL THROUGH IF 0 
TSTB —s« CSP) 3 STILL DOING LEADING 0'S? 
BMI 7$ ::BR IF YES 
5$: ASLB —- (SP) + :MSD? 
BCC 6$ *:BR IF NO 
MOVB #1(SP),-1(R3)  §::YES==-SET THE SIGN 
6$: BIS #°0,R2 ::MAKE THE BCD DIGIT ASCII 
7$: BIS 4 “R2 ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB  R2,(R3)+ >:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + :: JUST INCREMENTING 
CMP RO,#10 >=CHECK THE TABLE INDEX 
BLT 2$ :;G0 DO THE NEXT DIGIT 
BGT 8$ °°GO TO EXIT 
MOV R5,R2 :;GET THE LS 
BR 6$ *:GO CHANGE TO ASCII 
8$: iste (SP)+ :2WAS THE LSD THE FIRST NON-ZERO? 
MOVB <-1(SP),-2(R3)  ::YES=-SET THE SIGN FOR TYPING 
9$: CLRB 3) ::SET THE TERMINATOR 
MOV (SP)+,R5 >:POP STACK INTO R5 
MOV (SP)+.R3 ::POP STACK INTO R3 
MOV (SP)+,R2 >:POP STACK INTO R2 
MOV (SP)+.R1 >:POP STACK INTO R1 
MOV (SP)+.RO >:POP STACK INTO RO 
TYPE  ,$DBLK =:NOW TYPE THE NUMBER 
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000002 


000004 MOV 2 
MO ( 


R 
SDTBL: le 


SDBLK: .BLKW 4 


:zADJUST THE STACK 
:sRETURN TO USER 


SEQUENCE 
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1908 

006772 
006772 010046 
006774 010146 
006776 010246 
007 010346 
007002 010446 
007004 010546 

7 016646 000022 
007012 016646 000022 
007016 016646 000022 
007022 016646 000022 
007026 2 
007030 

7030 012666 000022 
007034 012666 000022 
007040 012666 000022 
007044 012666 000022 
007050 012605 
007052 012604 
007054 012603 
007056 012602 

7060 012601 
007062 012600 
007064 e 
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- SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


{RAE AAA AERA AEA AAA AEE HKEEEKEKKREREERE EEE 


S*SAVE RO-R5 
ALL: 


SAVREG 
“UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


‘ eTOP=== (+16) 
3% +2---(+18) 


;% +4---R5 


*+14-=-R0 
SSAVREG: 


SRESREG: 


RT 
2 time RO-R5 
RESREG 


(SP)+, -RO 


RO ON STACK 


-» SAV 
77SAVE PC 


: sRESTORE 


OF CALL 


PC OF CALL 
Be th PS OF CALL 


: TPOP STACK INTO RO 





SEQUENCE 
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1909 - SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


Perit rittt titi iti titi iii ti itiiii iii tiitiiit titi iitt ttt ttt tite 
:*THIS ROUTINE WILL CONVERT A 32=BIT UNSIGNED BINARY NUMBER TO AN 
:*UNSIGNED OCTAL ASCIZ NUMBER. 


**CALL 
: MOV #PNTR,~(SP) ; sPOINTER TO LOW WORD OF BINARY NUMBER 
i* JSR PC, a#$DB20 7:CALL THE ROUTINE 
= te RETURN ::THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
07 104413 $DB20: SAVREG ::SAVE ALL REGISTER 
007070 016601 000002 MOV 2(SP).R1 >:PICKUP THE POINTER TO LOW WORD 
007074 012705 007205 MOV #SOCTVL+13.,.R5 ::POINTER TO DATA TABLE 
7100 012704 000014 MOV #12. ,R4 ::DO ELEVEN CHARACTERS 
007104 012703 177770 MOV #°C7_R3 : :MASK 
007110 012100 MOV (R1)+,RO >: LOWE 
007112 012101 MOV (R1)+.R1 *:HIGH WORD 
007114 005002 CLR R2 7 TERMINATOR 
007116 110245 1$: MOVB  R2,-(R5) =:PUT CHARACTER IN DATA TABLE 
007120 010002 MOV RO,R2 ::GET THIS DIGIT 
007122 005304 DEC R4 >:COUNT THIS CHARACT 
007124 003007 BGT 3$ :3BR IF NOT THE LAST DIGI 
007126 001405 BEQ 2$ IF IT IS THE LAST DIGIT 
7130 005205 INC R5 ; ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
007132 010566 000002 MOV R5,2(SP) sASCIZ CHAR. & PUT IT ON THE STACK 
007136 104414 RESREG ; 3RESTORE ALL REGISTERS 
007140 000207 RTS PC ;RETURN TO USER 
007142 006203 2$: ASR R3 ::POSITION THE MASK FOR THE LAST DIGIT 
007144 006001 3$: ROR R1 :;POSITION THE BINARY NUMBER FOR 
007146 006000 ROR RO 33 THE NEXT OCTAL DIGIT 
007150 006001 ROR R1 
007152 006000 ROR RO 
007154 006001 ROR R1 
007156 006000 ROR RO 
007160 040302 BIC R3.R2 ::MASK OUT ALL JUNK 
007162 062702 000060 ADD #°0,R2 ::MAKE THIS CHAR. ASCII 
007166 000753 BR 1$ ::GO PUT IT IN THE DATA TABLE 
007170 SOCTVL: .BLKB 14. > RESERVE DATA TABLE 


CKKTBDO 11/44 MEM MGMT PRT B 


TRAP DECODER 
1910 


0 
007272 


16000 
200 


011646 
016666 


007242 


000004 000002 





MACRO M1113 


H 5§ 
12-JAN~82 12:19 PAGE 50 SEQUENCE 


- SBTTL TRAP DECODER 
[ooo ener ane eae ean oamsnosecsonevenstensese vensesoess 
; *THIS ROUTINE WILL on THE Ae BYTE OF Hp. ""TRAP’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
: *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
>*GO TO THAT ROUTINE. oon 


$TRAP: MOV RO,-(SP) RO 
GET TRAP ADDRESS 
ss UP BY 2 


Y 
GET RIGHT BYTE OF TRAP 
ASL POSITION FOR INDEXING 
MOV STRPAD(RO) RO i INDEX TO TABLE 
RT 0 TO ROUTINE 
:THIS IS USE TO HANDLE THE “Ge TPRI™ MACRO 
$TRAP2: MOV (SP) ,-(SP) : :MOVE THE PC DOWN 
MOV 4(SP),2(SP) ::MOVE THE PSW DOWN 
RTI > RESTORE THE PSW 
.SBTTL TRAP TABL 


E 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
: *BY a. INSTRUCTION. 


$TRPAD: .WORD STRAP2 

$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

STYPOC ;::CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPON ;::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
TYPBN ::CALL=TY TRAP+6(104406) TYPE BINARY (ASCII) 

S$GTSWR ::CALL=GTSWR  TRAP+7(104407) T SOFT=SWR SETTING 

SCKSWR ::CALL=CKSWR § TRAP+10(104410) TE CHANGE IN SOFT-SWR 
DCHR ::CALL=RDCHR §TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 

SRDLIN ::CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 

SSAVREG ::CALL=SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 

SRESREG ::CALL=RESREG TRAP+14(104414) RESTORE RO-R5 ROUTINE 
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OWN AND UP 
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Nm 
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Ssoc= 
VINO 
So 
ww 
™N 


=—OoOOCCooo0oo 
wb ae wb es ed ed 
SSNSesesss 
NNO MWS uw 


S2 
° 


sssseee 

RUSE 
~ Sess 
ao ~ oa 


~~ 4 = 2 © 
Sr RSNwa 
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000002 
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- SBTTL POWER DOWN AND UP ROUTINES 


REAR EAA AAA AAEAEREEEREEREAEEREERREEREREEKREREEKEKRKEE HES 


: POWER = ROUTINE 
PWRDN: 


#SILLUP, a#PWRVEC 
#340, QAPURVEC +2 


SP, SSAVR6 
#SPWRUP , a#PWRVEC 


-SET FOR FAST UP 
- BRIO: :7 
::PUSH RO ON STACK 


: ¢PUSH a ON STACK 


;SAVE S 
;;SET UP VECTOR 


- ; ;HANG 
ee 
TTITITITIITLITLLL LLL LLL LLL LLL LT LEC LLL LE L LE LLELTtee 


: POWER UP ROUTINE 
MOV 


$PWRUP : 


1$: 


SPWRMG: 
SPWRAD: 


SILLUP: 
SSAVR6: 
PWRMSG: 


#SILLUP ,a#PWRVEC 
$SAVR6, SP 
SSAVR6 

SSAVR6 

1$ 


(SP)+, aSwWR 
(SP)+,R5 


PWRMS 
ool 
#20,2(SP) 
$TBIT 


a 


Sie oe FAST DOWN 


:sWAIT LOOP FOR THE TTY 
eWAIT FOR THE INC 
WORD 


; POP STACK INTO @SWR 
;:POP STACK INTO R5 


: SBOP STACK INTO R1 
THE POWER DOWN VECTOR 


REPORT THE POWER FAILURE 
;;POWER FAIL nb POINTER 


SCCLEAR THE “'T'' BIT FLAG 


23 THE POWER UP SEQUENCE WAS STARTED 
ee BEFORE THE POWER DOWN WAS COMPLETE 


-PUT THE SP HERE 
“ASCIZ <12><15>? POWER FAILURE - RESTARTING 2<12><15> 


-EVEN 


SEQUENCE 
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1917 00752 
1918 rot 
1919 6 1 
1330 007701 
1353 Sone 
338 SBR 
1924 010154 
1925 010237 
1358 010315 
1927 010362 
1928 010431 
1362 010464 
19 B19363 
133) SBee 
338 Bee 
1934 010756 
1935 011021 
1339 011057 
1937 011135 
1938 011216 
1939 sary 
1940 011327 
1941 011372 
1942 011457 
1943 011523 
1944 011566 
1945 011633 
1946 011701 
1947 011740 
1948 012002 
1949 012041 
1950 012070 
1951 012126 
1326 012152 
1953 012217 
1954 012263 
1955 012327 
1956 012413 
1957 012466 
1958 O1S232 
1959 012625 
1960 
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1113. 12-JAN-82 12:19 PAGE 32 SEQUENCE 
ORMATS 


Tr —>* DATA HEADERS-TABLES & FORMATS 


/UNEXPECTED CPU TRAP TO LOC. 004/ 

/UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/ 
/MEMORY MGMT. ACCESS ABORT DID NOT OCCUR/ 
ar ite ant DID NOT ABORT INSTRUCTION/ 


RO D REPORT ACCESS ERROR CORRECTLY/ 
/SR2 DID _NOT LOCKUP CORRECT VIR 
/PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE/ 
/PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE/ 
RO DID NOT REPORT PAGE LGTH. ABORT C / 
OR SR2 CHANGED BY A SECOND 
/SRO OR SR2 WERE NOT ‘'RESET’’ BY A RESET/ 
/SR2 NOT TRACKING CORRECTLY/ 
/D! AP THRU KERNEL S 


™ 

4) 

2» 
S mm 
SBS 
“ 

” 

» 

4 


RROR/ 
/ERROR DURING ‘DOUBLE ERROR’ (KT & ODD ADDR.)/ 
/MFPI INSTRUCTION PUSHED WRONG DATA/ 
/MTPI INSTRUCTION LOADED WRONG DATA/ 
STACK NOT MFPI-MTPI/ 
/KERNEL PAGE ACCESS INSTEAD OF USER: MFPI-MTPI/ 
/ ABORT IN KERNAL D-SPACE HAD WRONG CONDITION/ 


E MODE 10 NO TED/ 
/SRO DID NOT ey ILLEGAL MODE 10 CORRECTLY/ 


R USER 
RNAL D-SPACE PICKED UP VECTOR FROM I-SPACE/ 
ENABLE yy ty*- FAILED/ 


/WRONG 

/ILLEGAL CSM DID NOT TRAP TO 10/ 

/CSM DID NOT ENTER SUPERVISOR MODE/ 

/CSM SET UP WRONG PREVIOUS MODE/ 

/CSM SET UP STACK WRONG/ 

/CSM PUSHED INCORRECT ARGUMENT/ 

/CSM PUSHE PC/ 

/CSM DID NOT CLEAR OLD PSW BITS <3:0>/ 

/CSM ACCESSED WRONG SUPERVISOR SPACE/ 

/CSM ABORTED WHEN IT SHOULD NOT HAVE/ 

?7CSM FAILED TO INCREMENT/DECREMENT REGISTER PROPERLY? 
/CSM FAILED TO PUT PROPER ARGUMENT ON STACK/ 

‘SR2 LOCKED UP AN 11/34 COMPATIBLE ADDRESS THAT:<CRLF> 
E IT COMPATIBLE WITH AN 11/70 SINCE‘<CRLF> 
M7095 ECO #8 IS MISSING: 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 53 SEQUENCE 62 
DATA HEADERS 








1908 -SBTTL DATA HEADERS 

1965 Q1 117 114 104 DH1: -ASCIZ /OLD PC OLD PSW R6 WAS — TESTNO ERRORPC/ 
1964 01 117 114 1046 DH2: ASCIZ /OLD PC OLD PSW R6 WAS SR SR2 TESTNO ERRORPC/ 
1965 01 1 104 122 DH10: .ASCIZ /PDR 4 PSW TESTNO ERRORPC/ 

1966 01 1 1$6 DHi2:  .ASCIZ /SRO WAS EXPECTD PDR 4 PSWwW TESTNO ERRORPC/ 
1967 01 123 As 062 DH13: .ASCIZ /SR2 WAS EXPECTD PDR 4  PSW TESTNO ERRORPC/ 
1968 01 126 056 102 DH14: «.ASCIZ /V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC/ 
1969 01 126 056 102 DH15: .ASCIZ /V.B.A. KIPDR4 TESTNO ERRORPC/ 

1970 01 126 056 102 DH16: .ASCIZ /V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC/ 
1971 01 158 056 102 DH17: .ASCIZ /V.B.A. KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC/ 
1306 01 123 122 062 DH20: .ASCIZ /SR2 WAS EXPECTD TESTNO ERRORPC/ 

1973 01 . 106 111 122 DH21: .ASCII /FIRST ABORT SECOND ABORT/<CRLF> 

1974 Q1 123 $6 060 -ASCIZ /SRO WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC/ 
1975 013677 123 122 060 DH22: .ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 

1976 013737 120 123 127 DH24: .ASCIZ /PSW WAS R6 WAS TESTNO ERRORPC/ 

1977 013777 105 130 120 DH26: .ASCII /EXPECTED RECEIVED/<CRLF> 

1978 014031 123 122 060 eASCIZ /SR SR S SR2 WAS TESTNO ERRORPC/ 
1979 014111 105 130 120 DH27: .ASCII /EXPECTED:/<CRLF> 

1980 oie les 120 123 127 ASCII /PSW RO SR2/<CRLF> 

1981 014157 061 067 060 ASCII /170017 (3$+4) 020147 (3$)/<CRLF> 

eas 014214 122 105 103 ASCII /RECEIVED:/<CRLF> 

198 O1gee 120 123 127 ASCIZ /PSW PC SR SR2 TESTNO ERRORPC/ 
1984 014 104 101 124 DH30: .ASCII /DATA DATA/<CRLF> 

1985 014323 105 130 120 eASCIZ /EXPECTD RECEIVD TESTNO ERR PC/ 

1986 014362 124 105 123 DH32: .ASCIZ /TESTNO ERR PC/ 

1987 014401 123 122 060 DH35: #£.ASCIZ 0 WAS SR2 WAS TESTNO ERRORPC/ 

1988 014441 050 115 115 DH34: .ASCIZ /(MARO) (MMR1) (MMR2) TESTNO ERRORPC EXPECTING 020031/ 
1989 014532 123 122 060 DH36: .ASCIZ /SRO WAS EXPECTD TESTNO ERRORPC/ 

1990 014572 120 123 127 DH37: .ASCIZ /PSW WAS EXPECTD TESTNO ERRORPC/ 

1991 014632 050 120 1253 DH40: .ASCIZ /(PSW) TESTNO ERRORPC EXPECTING XXxx340/ 

1336 014703 105 122 122 DH41: .ASCII /ERROR  AUTOI-D VIRTUAL/<CRLF> 

1993 014733 122 105 107 -ASCIZ /REGISTR REGISTR ADDRESS TESTNO PC AT ABORT/ 
1994 015007 107 104 104 ene eASCIZ /GDDATA STORED TESTNO / 

1995 015047 050 115 115 DH43: .ASCIZ /(MARO) (MMR1) (MMR2) TESTNO ERRORPC/ 

1996 015117 105 130 120 DH44: .ASCIZ /EXPECTD (PSW)  TESTNO ERRORPC/ 

1997 015157 117 114 104 DH45: .ASCIZ /OLDPSW TESTNO ERRORPC/ 

1998 SES oH 124 105 123. DH55: .ASCIZ /TESTNO ERR PC RO EXP RO RCV/ 

yD 015246 124 105 123 DHS57: mot /TESTNO ERR PC ARGEXP ARGRCV/ 


ee 
— = . = —_—_— re ee 
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DATA TABLES 














SBTTL DATA TABLES 
= RAPPC , TRAPPS ,WASR6, CPUERR, TESTNO, SERRPC,0 
+ 4 $6 71580 001262 001356 BT: * WORD TRAPPC TRAPPS WASR6 ,WASSRO WASSR2. TESTNO.$ERRPC,0 
5 015344 001166 001176 001254 DT10:  - WORD GB: $imP0. fesTwo, SeRRPC 
13 6 1336 Bote Boller oi : “WORD WASSAQ. SRE 3. $REG *$TMPO. TESTNO. SERRPC .0 
o156; 1162 00117 001 64 DT14:  .WORD SREGO. SREG4 .WASSRO, WASSR2, TESTNO, SERRPC 0 
10 1307 We iW 001 { Bia: “WORD $REGO. $REG4.WASSR + $REG2, TESTNO, SERRPC , 0 
11 0154 116 1172 001 * DT17:  .WORD SREGO, SREG4 -WASSR 2 x SREG 3 TESTNO, SERRPC 0 
i $1884 001176 001203 801 ge at “WORD STMPO, STAP gWASSROWASSR2 TESTNO, SERRPC , 0 
14 01552 1264 001 001254 DT22: .: gi ,TESTNO SERRPC 
15 $184 1164 001166 001254 D124 “WORD  $REG1,$REG2, TES NO. SERRP re 
16 01555 1162 001164 001264 DT26:  <cWORD $REGO.$REG1.WASSRO. . } ; 
Bie 1. $REG3,WASSRO,WASSR2,TESTNO. SERRPC .0 
See He ie Be fp Pe ee 
2020 a1 569 601104 bol 16e a01170 oT ¢ “WORD SREGI ,SREG2 SREGS. TESTNO. SERRPC ,0 
1 015642 001264 001164 001 D136: ‘ . Y ; 
: , ESTNO, SERRPC,0 
558 Stee SG Bese BRIG Be: Ae tea Ete sro cnr 
Se Sirs BUG BE BING RHE Mae MME MEIC, 
6 015726 001264 Tae : eWASSR2  TESTNO, ; 
7 015742 001170 035 001354 D146:  .WORD $REG3,ACSMPS,TE TNO. SERRPC . 0 
$0 8 015754 001162 035326 001254 D147: WORD $REGO.CSM1ST.TESTNO. SERRPC .0 
8 015766 001176 035330 001254 DT50: _WORD STMPO. CSH2ND ESTNO : 
2030 016000 035332 001254 001116 DT52: [WORD CSM3RD,TESTNO, age 
1254 001116 001176 DT55: [WORD TESTNO.$ERRPC.$TMPO,$REGO, 
$032 Stes $01 984 001116 001176 DT57:  .WORD TESTNO.$ERRPC.$TMPO.STMP1.0 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113. 12-JAN-82 12:19 PAGE 56 SEQUENCE 65 
teeee TRAP HANDLING ROUTINES *#«#« 


2062 .SBTTL ***** TRAP HANDLING ROUTINES *t«« 
2044 .SBTTL CPU TRAP HANDLER ROUTINE 
2045 2 s 'WPRRSBRBASRASASASAALALSLESALASSALASA SALE SESE SESE RES EEE RARER RSE RRR EROS 
2046 :* 
2047 i THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS THRU 
2046 ie 'ERRVEC’’ (LOC. 004). IF THIS SUBROUTINE IS ENTERED By A 
2049 :* SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS 
2030 * EXECUTED. 
** 

set *: : iMERR: INC. (PC)* MAKE FLAG ZERO IF FIRST TIME Thar 
205 016070 005227 TIMERR: INC (PC)+ :MAKE FLAG ZERO IF FIRST TIME THRU 
2054 016072 177777 TIMFLG: .WORD <1 “NEGATIVE ONE FOR “HAVE ENTERED'’ FLAG 
2055 016074 001401 BEQ 1$ “BRANCH IF FIRST TIME IN 
2056 016076 000000 ‘STOP! = I'VE ENTERED THIS ROUTINE 
2057 [A SECOND TIME BEFORE I FINISHED 
2058 “REPORTING THE FIRST ERROR. T 
2059 ‘SECOND ENTRY ADDRESS SHOULD BE ON 
Soe : THE KERNEL STACK. 

1 016100 012637 001260 1$: MOV (KSP)+,TRAPPC :SAVE PC+2 AT TIME OF ABORT 
2062 016104 012637 001262 MOV (KSP)+.TRAPPS :SAVE PS AT TIME OF ABORT 
2063 016110 010637 001256 MOV KSP, WASR6 :SAVE STACK POINTER VALUE 
2064 016114 104001 ERROR +1 :UNEXPECTED TRAP OR ABORT TO LOC. 4 
2065 016116 012737 177777 016072 MOV #~1, TIMFLG :MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
2066 016124 005037 177766 CLR CPUERR :CLEAR THE CPU ERROR REGISTER 
2067 016130 013746 001262 MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 
2068 016134 013746 001260 MOV TRAPPC .=(KSP) 
2069 016140 000006 RTT :RETURN FROM INTERRUPT OR ABORT 
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PRT B MACRO M1113 12-JAN-82 12:19 PAGE B SEQUENCE 
HANDLER ROUTINE 
.SBTTL MEMORY MANAGEMENT TRAP HANDLER ROUTINE 
. FT SAAR AAA AAA AAAARARERAARAAARARTERARERR RARER Ree ee ee 
°@ 
te THIS SUBROUTINE WILL HANDLE ALL UNEXPECTED MEMOR' MANAGEMENT 
:* TRAPS AND ABORTS THRU 'MMVEC’’ (LOC. 250). IF THIS SUBROUTINE IS 
:* ENTERED BY A SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A 
:* HALT IS EXECUTED. 
te 
UTI III ITI TIT TIT T IIIT TTT TTI TTT TTT TitiTiiitiitititiiiiitiiiti 
MGMERR: INC (PC)+ :MAKE FLAG ZERO IF FIRST TIME THRU 
MGMFLG: . -1 :NEGATIVE ONE FOR "HAVE ENTERED'’ FLAG 
1$ *BRANCH IF FIRST TIME IN 
:STOP! = I'VE ENTERED THIS ROUT INE 
7A SECOND TIME BEFORE I FINISHED 
:REPORTING THE FIRST ERROR. THE 
; E COND ENT ADD SHOULD BE ON 
001260 1$: MOV (KSP)+,TRAPPC :SAVE PC+2 AT TIME OF ABORT 
00126 MOV (KSP)+,TRAPPS :SAVE PS AT TIME 
001 7 MOV KSP,WASR6 :SAVE STACK POINTER VALUE 
177572 001264 MOV SRO.WASSRO :SAVE CONTENTS OF KT STATUS REG. 0 
177576 001270 MOV SR2.WASSR2 :SAVE CONTENTS OF KT STATUS REG. 2 
1 177572 BIC #160000, SRO [CLEAR ERROR BITS IN STATUS REG 0 
ERROR +2 “UNEXPECTED T T TO LOC. 250 
177777 016144 MOV #-1,.MGMFLG [MAKE FLAG NEGATIVE ONE FOR NEXT T 
001262 MOV TRAPPS,-(KSP) =PUT PC & PS OF TRAP ON STA 
001260 MOV TRAPPC , =(KSP) 
RTT :RETURN FROM INTERRUPT OR ABORT. 
- THE NEXT LOCATIONS ARE RESERVED FOR ANY PERMANENT PATCHES: 
000000 000000 PATCH: .WORD 0,0,0,0.0,0.0,0.0,0.0.0.0.0.0.0,0.0.0.0.0-0.0.0.0.0.0.0.0.0 
000000 000000 “WORD 0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0.0 
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020126 
0 


020206 
020214 


020222 


0 
020310 
020314 


020000 


Sue 
MMVI 
NO™ 
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oOooooee0oo oo 
ae ee ene nee er ae Per eer er rs 
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NO NNNNNN NS 
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ooo°o 


005046 
012746 
000006 


Seeoscsc > 
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oe 
=e 
=S 


NNNNNNOW NNN NNO 


ee 


001100 
001140 
001100 
003042 
000340 
003270 
000340 
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000020 


106 


ee ee ee eC — ee 


SEQUENCE 


* atkee STARTING POINT OF TEST «eee 
* kkkke STARTING ADDRESS OF 200 **««« 


START: | 
-SBTTL INITIALIZE THE COMMON TAGS 
:;CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV #SCMTAG,RG 7zFIRST LOCATION TO BE CLEARED 
CLR (R6)+ 37;CLEAR MEMORY LOCATION 
CMP #SWR.R6 ;;DONE? 
76 OP BACK 


:L0 IF NO 
#STA «SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTOR 


#SSCOPE, sa10 TVEC i210 VECTOR FOR SCOPE ROUTINE 
MOV #340, aM#1OTVEC+2 :L 7 
MOV #SERROR, aMEMTVEC EMT VECTOR FOR ERROR ROUTINE 
MOV #340, Q#EMTVEC +2 ;3LEVEL 7 
MOV #STRAP , AF TRAPVEC TRAP VECTOR FOR TRAP CALLS 
MOV #340, af TRAPVEC 2: -LEVE 
MOV #SPWRDN Cc POWER FAILURE VECTOR 
MOV #340, OAPURVEC YS 
MOV SENDCT, SEOPCT ETOP ae COUNTER 
CLR SESCAPE : CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ALLOW ONE ERROR PER TEST 
::INITIALIZE THE ““F-BIT" TRAP VECTOR. THEN LOAD, LOCATION, '"SRTRN', IN 
::THE "'END-OF-PASS"' (SEOP) ROUTINE, WITH A ‘RTI'’ OR ‘RTT 
MOV #SRTRN, a#TBITVEC :3SET T’’ BIT VECTOR 10 SRTRN 
MOV #340, a#TBITVEC+2 $gLEVEL 7 
MOV #RTI,$RTRN :SET $RTRN TO A RT 
MOV #65$.@ARESVEC TRY TO DO A RIT 
CLR ~(SP + = DUMMY PS 
MOV #64$,-(SP) *:AND P 
RTT =TRY THE RTT 
64S: MOV pit. .SRTRN “RTT IS LEGAL--SET $RTRN TO A RTT 
65$: ADD #10,SP RTT ILLEGAL--CLEAN OFF THE STACK 
66$: MOV § #RESVEC+2, amesvit': sRESTORE TRAP CATCHER 
CLR $TBIT i ‘T’’ BIT SWITCH 
MOV #. .SLPADR : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV ~SLPERR >SETUP THE ERROR LOOP ADDRESS 
;3SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT 
*:EQUAL TO A ‘'=1"', SETUP FOR A A SOFTWARE SWITCH REGISTER. 
MOV VEC SAVE ERROR VECTOR 
MOV eO7S aFERRVEC ‘SET UP ERROR VECTOR 
MOV #DSWR, SWR ; 3 SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP DISPLAY A HARDWARE DISPLAY REGISTER 
CMP #~1,aSWR >: TRY TO REFERENCE HARDWARE SwWR 
BNE 69$ > :BRANCH IF NO TIMEOUT TRAP OCCURRED 
:7AND THE HARDWARE SwWR IS NOT = ~1 
BR 68$ > =BRANCH IF NO TIMEOUT 
67S: MOV #68$, (SP) ::SET UP FOR TRAP RETURN 
68$: MOV #SWREG /sPOINT TO SOFTWARE SwWR 


MOV ADISPREG.D DISPLAY 
69$: MOV (SP) +, AMERRVEC : :RESTORE ERROR VE VECTOR 


C $ C 
BITB #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 


67 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 SEQUENCE 68 
INITIALIZE THE COMMON TAGS 
020 322 00140 93 BEQ 70$ YES,USE NON-APT SWITCH 

020324 4 O73 001246 001140 m MOV #SSWREG, SWR “°NOLUSE APT SWITCH REGISTER 

2107 .SBTTL TYPE PROGRAM NAME 
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

020332 005227 177777 INC #~1 ::FIRST TIME? 

020336 00104 BNE ris ::BRANCH IF NO 

020340 022737 036252 000042 CMP WSENDAD,a#42 = : :ACT-11? 

020346 001443 BEO 71$ : TBRANCH IF YES 

020350 104401 020416 YPE ASCIZ STRING 

.SBTTL GET VALUE FOR SOFTWARE siiten REGISTER 

020354 005737 000042 TST an :;ARE WE RUNNING UNDER XXDP/ACT? 

020360 001012 BNE 73$ ::BRANCH IF YES 

020362 123727 001244 000001 CMPB  —s- SENN, #1 ;3ARE WE RUNNING UNDER APT? 

020370 001406 BEQ 7 ‘BRANCH IF YES 

020372 023727 001140 000176 CMP SWR,ASWREG 3 3 SOF TWARE SWITCH REG SELECTED? 

020400 001005 BNE 74$ CH IF NO 

020402 104407 GTSwR *:GET SOFT-SWR SETTINGS 

020404 000403 BR 74$ 

020406 112737 000001 001134 738: MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 

020414 000420 BR 71$ -GET OVER THE ASCIZ 

estat 53728: "ASCIZ <CRLF>ACKKTBDO 11744 MEM MGMT PRT BA<CRLF> 
2108 020456 104401 020464 TYPE 76$ :sTYPE ASCIZ STRING 

020462 00043 BR 75$ OVER THE ASCIZ 

ties 55768: .ASCIZ #EOP MESSAGES WILL PRINT EVERY 64 PASSES OR ABOUT 11 SECONDS# 
2109 020560 LOOP: 
2110 020560 012706 001100 MOV #STACK,KSP :INITIALIZE THE STACK POINTER 
2111 020564 012737 040000 177776 MOV #40000.PSw > TURN ON SUPERVISOR MODE 
2112 020972 012706 700 MOV #SUPSTK, SSP ; INITIALIZE SUPER. STACK POINTER 
2113 020576 012737 140000 177776 MOV #140000.PSw ON 
2114 020604 012706 00 MOV #USESTK USP * INITIALIZE USER STACK POINTER 
2115 020610 005037 177776 CLR PSW :RETURN TO KERNAL MODE 
2116 020614 012737 016070 000004 MOV #TIMERR,ERRVEC :LOAD CPU SERVICE ROUTINE INTO TRAP VECTOR 
2117 020622 012737 000340 000006 MOV #340, ERRVEC+2 SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
2118 020630 012737 016142 000250 MOV #MGMERR , MMVE C MEMORY MANAGENT ROUT INE INTO VECTOR 
2119 020636 012737 000340 000252 MOV #340, MMVEC+2 “SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
2120 020644 012700 177777 MOV #=1,R0 :PUT -1 INTO RO TO INITIALIZE FLAGS 
2121 020650 010037 016072 MOV RO, TIMFLG “INITIALIZE CPU ERROR FLAG 
3122 020654 010037 016144 MOV RO ‘MGMFLG s INITIALIZE MEMORY MANAGEMENT ERROR FLAG 
2123 020660 012737 001274 MOV s 40. TBITPS ; INITIALIZE LOG THAT HOLDS T-BIT PSW 
2124 0 005037 177572 INIT: CLR MMRO URE MEM. MGMT IS OFF TO START WITH, 
2125 020672 012737 20 172516 MOV #B1T4 MMR “BUT TURN ON 22-BIT ADDRESSING MODE 
2126 020700 004737 002060 JSR PC, APRINIT : JUMP TO PAR/PDR INIT ROUT INE 


_ —_ A a  — —_— 
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/ CKKTBDO 
aa 1 ACCESS CONTROL” FIELD/SPECIAL ABORTS T 
1 8 -SBTTL GROUP 1 ACESS CONTROL FIELD/SPECIAL ABORTS TESTS 
1 :/, Nal u Bad & Val « bal u bal o talc Del a bed o Sad a Bol 2 Vad & hel c Ral c Vola bad oc ted c tebe het e’® 
| 1 FF AAA AAA AERA AAAAAEEARAEEAAHEERERREKERAKARAAA AEE RE 
131 ;* 
| 1 ;* THE NEXT THREE (3) TESTS CAUSE MEMORY MANAGEMENT FRRORS 
1 ;* TO CHECK THE ABILITY OF STATUS REGISTER 0 TO RECORD KT 
1 ;* ERRORS AND THE ott OF STATUS REGISTER 2 TO LOCK UP THE 
sie 3* VIRTUAL ADDR. OF THE INSTRUCTION THAT Tt 4 T 
1 ;* THE BITS OF eR ARE CHECKED AND BITS <15:15>, <6:5>, AND <3:0> 
sie 3* ARE CHECKED IN SRO. SO THE SRO AND SR2 LOGIC AND THE 
$136 ;* KT ERROR LOGIC ARE CHECKED. 
** 
4 40 : 2 REEAAEKAAEKEAAEAKEAEKAAREEEAREEEKRAARAKAAAEARARAEKARARAEREARAAAREEEEEREEEEE 
141 OF «Mel é Rat 0 tale bala bade Haka bal 6 had a held 6 had 5 Mal a Neb a ed chad oc Wel oc Neb chtch eed o% 


hs - - oo - ee $$ —____— 


| 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 60 SEQUENCE 70 
TEST # 1 = NON-RESIDENT ABORT TEST (ACF=084) 


2150 .SBTTL TEST # 1 = NON-RESIDENT ABORT TEST (ACF=084) 
FF EAA AAA AAA AERA AEE EREEAEEEEKEAAEREERKEEKEKERKEKER EEE 
**TEST 1 NON-RESIDENT ABORT TEST (ACF=084) 
*® 
:* THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
:* LOGIC BY CAUSING NON-RESIDENT ABORT S IN KERNEL SUPERVISOR 
* AND USER MODES. LOADED WITH &4 AND 
oi THEN PHYSICAL ApDR 0000 is ACCESSED 1O. CAUSE THE ABORT. 
** 
HF ibibebehehpbtb-iabebebeebebiebbbbbbbiebbbihbbbbbbbbiibhbbbibbbbhhbbbbbhit 
020704 004 TST SCOPE 
2151 020706 012700 000600 1$: MOV #600,RO :LOAD DATA FOR PAR'S INTO RO 
2152 020712 010037 172346 MOV RO, KIPAR3 *MAP KERNEL PAR'S 384 TO 12-16k 
2153 020716 010037 172350 MOV RO. KIPAR4 
2154 020722 010037 172246 MOV RO. SIPAR3 :MAP SUPERVISOR PAR'S 384 TO 12-16k 
2155 020726 010037 172250 MOV RO. SIPAR4 
2156 020732 010037 177646 MOV RO. UIPAR3 :MAP USER PAR'S 384 TO 12-16k 
2157 020736 010037 177650 MOV RO, UIPAR4 
2158 020742 012700 060000 MOV #60000,RO :LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
2159 020746 012791 100000 MOV #100000,R1 :LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 
2160 020752 012703 100011 MOV #100011.R3 “LOAD R3 WITH WHAT SRO - N.R., KERNEL, PG.4 
2161 020756 012702 077400 MOV #77400,R2 :LOAD ACF=0 (NON-RESIDENT) PDR VALUE IN R2 
2162 020762 012737 021036 000250 2$: MOV #5$ .MMVEC :POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 
2163 020770 010237 172310 MOV R2,KIPDR4 [LOAD ACF TEST VALUE INTO KIPDR4 
2164 020774 010237 172210 MOV R2,SIPDR4 [LOAD ACF TEST VALUE INTO SIPDR4 
2165 021000 010237 177610 MOV R2.UIPDR4 :LOAD ACF TEST VALUE INTO UIPDR4 
2166 021004 012737 021020 001110 MOV 438. SLPERR :SET LOOP ON ERROR POINTER TO 3$ 
2167 021012 012737 000001 177572 MOV #1.MMRO = TURN ON MEMORY MANAGEME 
2168 021020 005010 3$: CLR (RO) [CLEAR PHYS. LOC. 60000 USING PDR3 
2169 021022 013737 177776 001176 MOV PSW,STMPO :SAVE PSW IN CASE OF E 
2170 021030 005211 4$: INC (R15 :TRY TO REF. IT USING PDR4 - SHOULD TRAP TO 5$ 
2171 021032 104003 ERROR +3 :MEM. MGMT. ABORT DID NOT OCCUR 
2172 :FOR TIGHTER SCOPE LOOP 
2173 ;REPLA CE ERROR CALL WITH 
217% "BR 3$" = 0007 
2175 021034 000425 BR 8$ “BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 
2176 021036 062706 000004 S$: ADD #4,S5P *RESTORE STACK POINTER 
2177 021042 005710 TST (RO) :DID INSTRUCTION GET ABORTED & NOT EXECUTE 
2178 021044 001401 BEQ 6$ =BRANCH IF YES 
2179 021046 104004 ERROR +4 s INSTRUCTION WAS NOT ABORTED, LOC. GOT CHANGED 
2180 :FOR TIGHTER SCOPE LOOP 
2181 EPLACE ERROR CALL WITH 
2182 = 000764 
2183 21050 013737 177572 001264 6S: MOV SRO, WASSRO : aeap Sratus REGISTER 0 
184 021056 013737 177576 001270 MOV SR2,WASSR2 sREAD STATUS REGISTER 2 
2185 021064 020337 001264 CMP R3, UASSRO :DID SRO REPORT NON-RESIDENT ERROR CORRECTLY? 
2186 021070 001401 BEQ 7$ “BRANCH IF YES 
2187 021072 104005 ERROR +5 : SRO DID NOT REPORT NON-RES. ERROR CORRECTLY 
2188 -FOR TIGHTER SCOPE LOOP 
2189 REPLACE, € ERROR CALL WITH 
sie "BR 3 000752 
191 021074 012704 021030 7$: MOV #4$,R4 “LOAD R& WITH WHAT SR2 SHOULD READ 
2192 021100 020437 001270 CMP R4,WASSR2 =DID SR2 LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 
2193 021104 001401 BEQ 8$- ‘BRANCH IF YES 
2194 021106 104006 ERROR +6 :SR2 DID NOT LOCK VIRTUAL ADDR. OF NON-RES. ERROR 
2195 “FOR TIGHTER SCOPE LOOP 
2196 “REPLACE ERROR CALL WITH 
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11/66 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 0-9 SEQUENCE 71 
- NON-RESIDENT ABORT TEST (ACF=084) 


:'BR 3$°' = 000744 


1110 003037 17757 8$: CLR MAR 0 ; TURN OFF MEMORY MANAGEMENT 
1114 Q32737 14 001176 BIT #140000,STMPO HAS ACF =0R4 BEEN TESTED IN USER YET 
1122 001 BNE ;BRANCH_IF YES 
1124 B15 ° 100151 MOV #100151,R3 : LOAD RS. WITH WHAT SRO SHOULD READ - N.R., USER, PG.4 
8 11 127 140000 177776 MOV #140000, PSw :GO_ TO USe 
11 711 BR 2$ ;REPEAT TEST IN USER MODE 
021140 022737 040000 001176 11$: CMP #40000, STMPO sHAS ACF= BEEN TESTED IN SUPERVISOR YET 
021146 1006 BNE 9$ sBRANCH IF YES 
021150 01 Ps 100051 MOV #100051,R3 :LOAD R3 WITH WHAT SRO SHOULD READ - N.R., SUPERVISOR, PG.4 
021154 0127 04 177776 MOV #40000 ,PSw :GO TO SUPERVISOR MOD 
021162 77 BR 2$ ;REPEAT TEST IN SUPERVISOR MODE 
0 By 022702 077404 9$: CMP #77404 ,R2 :HAS ACF=4 BEEN TESTED YET? 
021170 001407 BEQ 10$ ;BRANCH IF YES 
021172 815508 077404 MOV #77404 ,R2 ; THEN LOAD ACF=4 (NON-RES) PDR VALUE IN R2 
021176 012703 100011 MOV #100014 ,R3 ;LOAD R3 WITH WHAT SRO SHOULD READ-N.R..KERNEL.PG. 4 
021202 005037 177776 CLR PSW :GO BACK TO KERNEL 
0 iste 000665 BR 2$ ;GO BACK & TEST ACF=4 IN SAME MODE 
021210 005037 177776 10$: CLR PSW :GO BACK TO KERNEL MODE BEFORE a. 
021214 012737 016142 000250 MOV #MGMERR,MMVEC RESTORE ADDRESS OF ME 


NORMAL 
:MANAGEMENT ERROR ROUTINE TO MMVEC 
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TEST # 2 = READ-ONLY ABORT TEST (ACF=2) 





2226 -SBTTL TEST # 2 ~ READ-ONLY ABORT TEST (ACF=2) 
{SARA AAA AERA AAA EEA EEAEAAEREEEHEKEKEREE REAR Ee 
SSTEST 2 READ-ONLY ABORT TEST (ACF=2) 
*® 
| oe THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
| ie LOGIC BY CAUSING READ-ONLY ABORTS IN KERNEL, SUPERVISOR AND 
| * USER MODES. PDR 4 IS LOAD WITH ACF=2 AND THEN 
| ot PHYSICAL ADDR. 60000 IS WRITTEN TO CAUSE THE ABORT. 
*® 
PTTTIIIIIIITITIT ITT IIT IIIT ITI TTI TT TiTiTiTiiLiLiLiLTiti LTT iii ii 
021222 000004 TST2: SCOPE 
3227 021224 1$: :KERNEL, SUPERVISOR AND USER PAR'S 3 g 4, 
28 [AND PDR 3 ARE SETUP FROM LAST TEST 
2229 021224 012700 060000 MOV #60000 RO :LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
2230 021230 012701 100000 MOV 000 R1 = LOAD Y RTUAL ADDR. TO REFERENCE PDR4 INTO R1 
2231 021236 012703 020011 MOV #2001 R3 :LOAD R3 WITH WHAT SRO SHOULD READ - R/O, KERNEL. PG.4 
2232 021240 012702 077402 MOV #776402.R2 “LOAD ACF=2 (READ-ONLY) PDR VALUE IN R2 
2233 0212464 012737 021316 000250 2%: MOV #5$,.MMVEC [POINT MEM. MGMT. TRAP VECTOR TO 5$ BELOW 
2234 021252 010237 172310 MOV R2,KIPDR4 PDR 
2235 021256 010237 172210 MOV R2,SIPDR4 
2236 021262 010237 177610 MOV R2. UIPDR4 
2237 021266 012737 021300 001110 MOV #3$,SLPERR 
2238 021274 005237 177572 INC MRO 
2239 021300 005010 3$: CLR (RO) 
2240 021302 013737 177776 001176 MOV PSW,$TMPO 
2241 021310 005211 4$: INC (R15 :TRY TO WRITE USING PDR4 - SHOULD TRAP TO 5$ 
2240 021312 104003 ERROR +3 MEM. MGMT. ABORT DID NOT OCCUR 
224 FOR TIGHTER SCOPE L 
2264 REPLACE ERROR CALL WITH 
2245 :'BR 3$"° = 0007 
2246 021314 000425 BR 8$ a. AROUND STATUS REG. CHECKS IF NO ABORT 
2247 021316 062706 000004 S$: ADD #4.SP sRESTORE STACK POINTER 
2248 021322 005710 TST (RO) :DID INSTRUCTION GET ABORTED & NOT EXECUTE 
2249 021324 001401 BEQ 6$ CH IF YES 
2250 021326 004 ERROR +4 : INSTRUCTION WAS NOT ABORTED, LOC. GOT CHANGED 
251 =FOR TIGHTER SCOPE LOOP 
$526 a LACE ig Ae WITH 
2254 021330 013737 177572 001264 68: MOV SRO, WASSRO sREAD STATUS REG. 0 
2255 021336 013737 177576 001270 MOV SR2,WASSR2 : READ STATUS REG. 2 
2256 021344 020337 001264 CMP R3,WASSRO D SR RO REPORT READ-ONLY ERROR CORRECTLY? 
2257 021350 001401 BEQ 7$ ‘BRANCH IF YES 
2258 021352 104005 ERROR +5 :SRO DID NOT REPORT R/O ERROR CORRECTLY 
259 :FOR TIGHTER SCOPE LOOP 
260 : REPLACE ERROR ss WITH 
2261 :"BR 3$°' = 0007 v6 
2 62 021354 012704 021310 7$: MOV #4$,R4 : LOAD 4 WITH WHAT SR2 SHOULD READ 
2263 021360 020437 001270 CMP R4,WASSR2 =DID SR2 LOCKUP 'R RIGHT VIRTUAL ADDR. (=4$)? 
2264 021364 001401 BEQ 8$ :BRANCH IF YES 
3265 021366 104006 ERROR +6 *SR2 DID NOT LOCKUP VIRTUAL ADDR. OF R/O ERROR 
2 -FOR TIGHTER SCOPE LOOP 
2267 :REPLA ACE E ERROR CALL WITH 
BR 3 000744 
22 re 021370 605037 177572 8$: CLR MMRO > TURN OFF MEMORY MANAGEMENT 
e2 0 021374 032737 140000 001176 BIT #140000.$TMPO :HAS ACF=2 BEEN TESTED IN USER MODE? 
71 0 1402 001006 BNE “BRANCH IF YES 
$559 021 012703 020151 MOV #20151.R3 LOAD R3 WITH WHAT SRO SHOULD READ-R/O, USER, PG.4 
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TEST # 2 = READ-ONLY ABORT TEST (ACF=2) 


$ 73 1410 012737 140000 177776 MOV #140000 ,PSw :GO TO USER MODE 

74 021416 ar BR REPEAT T ST_IN USER MODE 

2275 021420 022737 040000 001176 11$: CMP #40000, S7MPO SHAS ACF=2 BEEN TESTED IN SUPERVISOR MODE? 

§ 76 0214 3006 BNE ;BRANCH IF YES 

277 0214 615 03 020051 MOV #20051,R3 ;LOAD R3 WITH WHAT SRO SHOULD READ-R/0, SUPERVISOR, PG.4 
2278 021434 012737 040000 177776 MOV #40000,PSWw :GO TO SUPERVISOR 

2279 021442 000700 BR 2$ ;REPEAT TEST IN SUPERVISOR MODE 

2280 taper. 005037 177776 9$: CLR PSW :GO BACK TO KERNEL MODE BEFORE a 

2281 021450 012737 016142 000250 MOV #MGMERR .MMVEC RESTORE ADDRESS OF NORMAL 

2282 :MANAGEMENT ERROR ROUTINE TO MMVEC. 
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SEQUENCE 74 

















i 
22% -SBTTL TEST # 3 ~ TEST ILLEGAL MODE ‘10°’ 
J EAA AAA AAA AEE AEE EERE AAA 
| S&TEST 3 TEST ILLEGAL MODE ‘10° 
*“® 
| : THIS TEST CHECKS TO SEE THAT A 10 IN THE CURRENT MODE BITS OF THE 
| it PSW WH RY T IS ON IS IL 
| :* EMENT D OCCUR AND STATUS REGISTER 0 
| :* SHOULD REPORT NON-RESIDENT ABORT MODE = AGE = 1 (100103). STATUS 
:* REGISTER 2 SHOULD LOCKUP THE ADDRESS OF THE INSTRUCTION 
ie THAT LOADED THE PSW IF M709 ECO #8 IS MISSIGN. IF THE ECO IS 
:* INSTALLED, THE ADDRESS LOCKED UP WILL BE THAT OF THE UPDATED PC. 
** 
*: REKKAAEAAERKEARAERAAAAEAREKREEERAEARARERAEEAKERAKEKEKKEKEKKAKEKKEKKEKKKRKEKKEKEEE SE 
021456 4 TST3: SCOPE 
38 Msicee Gieray S21808 LIE TRY HIREGRLPERR 5, ORO OTE IOS 
2297 021474 012737 000001 177572 MOV #1 .MMRO “TURN ON MEMORY MANAGEMENT 
2298 021502 012737 100000 177776 10$: MOV 4100000, PSw SET 19. IN Psy. CURRENT MODE BITS 
2299 021510 104030 2$: ERROR +30 -ILLEGAL MODE 10 NOT ABORTED 
2300 :FOR A TIGHTER SCOPE LOOP, REPLACE ERROR CALL WITH ‘BR 10$"' = 000774 
2301 021512 012737 016142 000250 MOV WMGMERR,MMVEC : RESTORE MEM. GAT. ABORT VECTOR 
2303 021522 013737 177576 001270 3$: MOV SR2,WASSR2 {READ CONTENTS OF SR2 
530$ 091836 019706 0T100 on oy ER VEC SASSTONS OR, MENT. ABORT VECTOR 
2306 021542 020757 100103 177572 CMP #100103.3R0 :DID SRO REPORT ILLEGAL MODE CORRECTLY? 
2308 021552 012701 100103 MOV #100103 .R1 :LOAD EXPECTED CONTENTS OR SRO INTO R1 
2309 021556 013737 177572 001264 MOV SRO, WASSRO :READ CONTENTS OF SRO 
2310 021564 104031 ERROR + “SRO DID NOT REPORT NR ABORT, PG=1, MODE=10 
2311 FOR TIGHTER SCOPE LOOP REPLACE ERROR CALL WITH ‘BR 10$°° = 000746 
su QE1s6e GERTAg 021502 01270 48: gee Hes a tout ings feet Ae" Soma 
S318 Oo1a0e OO160? Oe! (0N270 . eo ee ates : 
2316 021606 012701 021510 MOV Hes, R1 :MOVE ERROR ADDRESS TO R1 FOR ERROR CALL; : 
2317 021612 104013 ERROR SR2 DID NOT LOCKUP VIRT. ADDR. OF ILL. MODE INST. 
2318 sane a : On TIGHTER scope. LOOP, P (REPLACE ERROR CALL WITH BR” fos" = 000733 
2320 021616 012701 021502 45$: v #10$,R1 wr : 
2321 021622 104054 ERROR +54 sk 
$356 uM : 
2324 ; 
2325 :FOR TIGHTER SCOPE LOOP, REPLACE ERROR CALL WITH "BR 108” = 000727 
2326 021624 042737 160000 177572 S$: BIC #160000, SRO : CLEAR POSSIBLE ERROR BITS IN SRO 
L 


rmrororosporele’ rot 


WNW 


ARUN =SSaN ™ 


Ww 
™N 


WWANAG 


rorrrr 


ERS 


m=O De 


mr 


SL SSS 


— —__ —- ~ = - = = 


K_ 6 
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3. - TEST ILLEGAL MODE *"10°° 


AbD Ae RRR ERR RR RRRRRRRRRRRRRRSAR ERLE REE E RE RRR ERE EERE RE SERRE ES SE 


THE NEXT TWO (2) TESTS WILL a CHECKING THE oaee LENGTH 
OMPARATORS AND SOME E OF THE DETECTION 


“PAGE LENGTH ABORT’’ WHILE THE OTHER TWO 


STATUS REGISTER 0 & 2 “. CHECKED WHEN THE PAGE LENGTH 
ABORT DOES OCCUR TO SEE THAT THE ABORT IS REPORTED AND THAT 
ae tetas OF THE INSTRUCTION THAT CAUSED THE ABORT 


'MARRASAARASAASRAAAAASLASLASAARAARAREERASASARASSSES SESE SESE SESE R EEE EES SF 


4 
® 
* 
cs 
& 
* ILE USING BOTH UPWARD & DOWNWARD PAGE 
. FXPANSION. ONE OF THOSE THREE VIRTUAL ADDRESSES WILL CAUSE A 
& 
* 
~ 
* 
* 
* 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 64 SEQUENCE 
TEST # 4 = PAGE LENGTH FAULTS-UPWARD EXPANSION 


| 2354 .SBITL TEST # 4 ~ PAGE LENGTH FAULTS-UPWARD EXPANSION 
| {RARER AAAARAAAEARAEAEAAEAEREAEAEAEAKEAEEREEEREREEKAEEEKEEEKERERE EKER e 
| **TEST 4 PAGE LENGTH FAULTS-UPWARD EXPANSION 
** 
| i THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR 4 
| * FROM 1 TO 177 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA‘'S) 
| :* ARE ACCESSED. WHEN VBA <12:6> IS LESS THAN OR EQUAL TO PDR <14:8> 
| :* NO ABORT $ HOULD OCCUR. WHEN VBA <12:6> IS GREATER THAN PDR <14:8>, 
| ie A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
: THE PAGE EXPANSION DIRECTION IN THIS TEST IS UPWARD, (THE ED BIT 
ie (BIT 3) OF PDR 4 = 0). 
**® 
PITTI TITIIITITTITTITTITIIITTIITITiTiLiLii tii LiL LLL LLL LTT LTT 
021632 4 TST4: SCOPE 
2355 021634 012737 077406 172306 13: MOV #77406.KIPDR3 ;=MAKE SURE PDR3 IS DESCRIBED AS Ry 
2356 021642 012737 077406 172312 MOV #77406,KIPDR5 :MAKE SURE PDR5 IS DESCRIBED AS R 
2357 021650 012700 100000 MOV #100000,R0 ‘LOAD VIRTUAL ADDR. TO SELECT BORG” INTO RO 
2358 021654 012704 000406 MOV #406,R4 *LOAD FIRST PDR VALUE IN R4 (PLF=1, ACF=6) 
2359 021660 012737 022052 000250 2$ MOV #9$ ,MMVEC :SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 
2360 021666 010437 172310 MOV R4 .KIPDR4 *LOAD KIPDR4 WITH PAGE LENGTH VALUE 
2361 021672 012737 021700 001110 MOV #3$,$LPERR :SET LOOP ON ERROR POINTER TO 3$ 
2362 021700 012706 001100 3$: MOV #KERSTK,KSP sMAKE SURE STACK POINTER IS ALL SET UP 
2363 021704 011001 MOV (RO) RI sACCESS VIRTUAL ADDR. (VBA < PLF - NO ABORT) 
2364 021706 062700 000100 ADD #100.RO “FORM NEXT VIRTUAL ADDRESS IN RO 
2365 021712 012737 021720 001110 MOV #4$,$LPERR “SET LOOP ON ERROR POINTER TO 4$ 
2366 021720 012706 001100 4$: MOV #KERSTK,KSP :MAKE SURE STACK POINTER IS ALL SET UP 
2367 021724 011001 MOV (RO) RI *ACCESS VIRTUAL ADDR. (VBA=PLF - NO ABORT) 
2368 021726 062700 000100 ADD #100.RO ;FORM NEXT VIRTUAL ADDR IN RO 
2369 021732 020027 117700 CMP RO.#117700 sHAVE ALL PLF'S BEEN TESTED YET? 
2370 021736 001470 BEQ 10$ ‘BRANCH IF ALL VBA'S & PLF'S HAVE BEEN USED 
2371 021740 012737 021754 001110 MOV #5$,SLPERR >SET LOOP ON ERROR POINTER TO 5$ 
2372 021746 012737 021762 000250 MOV #6$..MMVEC :SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 
2373 021754 011001 5$: MOV (RO) .R1 sACCESS VIRTUAL ADDR. (VBA > PLF - ABORT TO 6$) 
2374 021756 104010 ERROR +10 sEX PECTED PAGE LENGTH ABORT DID NOT OCCUR 
2375 *FOR TIGHTER SCOPE LOOP 
2376 REPLACE ERROR CALL WITH 
2377 :"BR 5$"' = 000776 
2378 021760 000424 BR Bh “BRANCH AROUND ABORT CHECKS 
2379 021 762 012706 001100 6$: MOV #KERSTK,KSP *RESTORE STACK POINTER FOLLOWING ABORT 
380 021766 013737 177572 001264 MOV SRO,WASSRO *R TATUS REG. 0 
2381 021774 013737 177576 001270 MOV SR2.WASSR2 “READ M.M. STATUS REG. 
022002 012702 040011 MOV #40011,R2 *PUT EXPECTED SRO CONTENTS IN R2 
2383 022006 020237 001264 CMP R2,WASSRO ‘DID SRO REPORT PG. LENGTH ABORT, PAGE 4. KERNEL? 
2384 022012 001401 BEQ $ *BRANC H IF YES 
2385 022014 104011 ERROR +11 :SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
2386 FOR TIGHT WER SCOPE LOOP 
2387 ;REPLACE ERROR CALL WITH 
2388 "BR 5$" = 000757 
2389 022016 012703 021754 7$: MOV #5$,R3 “PUT EXPECTED SR2 CONTENTS IN R3 
2390 022022 020337 001270 CMP R3,WASSR2 :DID D SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 
2397 022026 001401 BEQ $ ANCH IF YES 
2392 022030 104012 ERROR +12 “§R2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
2393 “FOR TIGHTER SCOPE LOOP 
2394 REPLACE ERROR CALL WITH 
2395 :"BR 5$" = 000751 
2396 022032 042737 160000 177572 8%: BIC #160000, SRO “CLEAR ERROR BITS IN SR 
2397 022040 062704 000400 ADD #400,R4 “FORM NEXT PLF VALUE FOR KIPDR4 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO MEF a ese 12:19 PAGE 66 $. SEQUENCE 77 
TEST # 4 = PAGE LENGTH FAULTS-UPWARD EXP 


iC 
| 
| 2398 022044 162700 000100 SUB #100,R0 :FORM FIRST VIRT. ADDR FOR THAT PLF VALUE 
99 022050 70 BR 2$ :BRANCH BACK AND A ACCESS VBA'S FOR 
400 :THE PLF VALUE JUST FORMED 
401 022052 01 637 9$: MOV (KSP)+,TRAPPC :SAVE PC & PS OF TRAP 
40 0 12637 001 6 MOV (KSP) +. TRAPPS 
40 06 013737 177572 001264 MOV SRO. wASSRO :SAVE CONTENTS OF SRO FOR ERROR 
404 022070 013737 177576 001 70 MOV R2.WASSR2 :SAVE CONTENTS OF SR2 FOR ERROR 
405 022076 042737 177572 BIC #160000, SRO “CLEAR ERROR BITS IN SRO 
406 022104 104007 ERROR GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
40 :FOR TIGHTER SCOPE L 
2408 REPLACE ERROR CALL WITH 
409 ‘A ''NOP™ 4 
410 022106 013746 001262 MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 
411 022.12 013746 001260 MOV TRAPPC ,=(KSP) 
hig 022116 000002 RTI ;RETURN FROM UNEXPECTED ABORT 
2414 022120 012737 016142 000250 10$: MOV #MGMERR,MMVEC  ;RESTORE NORMAL M.M. TRAP HANDLER 
415 “ADDRESS TO M.M. TRAP VECTOR 
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-CKKTBDO 11/44 MEM MGMT PRT B = MACRO M1113 SEQUENCE 78 
TEST # 5S = PAGE LENGTH FAULTS-DOWNWARD EXPAN 
2427 -SBTTL TEST # 5 - PAGE LENGTH FAULTS-DOWNWARD EXPANSION 
{RAAT EEAAAAAERAEAEEAERRAEAEAEREREREEEREKEEE KEKE ES 
| **TEST 5 PAGE LENGTH FAULTS=DOWNWARD EXPANSION 
| *® 
| :* THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR4 
| o® FROM 176 TO 0 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA'S) 
| :* ARE pACCESSED. ‘OWEN VBA a ee>” IS GREATER THAN OR EQUAL TO PDR <14:8> 
ie NO PAGE ABORT SHOULD OCCUR. WHEN VBA <12:6> IS THAN PDR <14:8> 
+ A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
“i THE PAGE EXPANSION DIRECTION IN THIS TEST IS DOWNWARD, (THE ED BIT 
:* (BIT 3) OF PDR4=1). 
** 
PTTITITIIITITITT LILI LIL LI TLL LLL LLL LL LLL ELL LLL LLL LLL TTT ii 
022126 000004 TST5: SCOPE 
2428 022130 012700 117700 1$: MOV #117700,R0 :LOAD VIRTUAL ADDR. TO SELECT PDR4 INTO RO 
2429 022134 012704 077016 MOV #77016,R4 [LOAD FIRST PDR VALUE IN R4 (PLF=176.ACF=6) 
2430 022140 012737 022332 000250 28: MOV #9$ .MMVEC :SETUP M.M. VECTOR FOR UNEXPECTED ABORTS 
2431 022146 010437 172310 MOV R4 KIPDR4 :LOAD KIPDR4 WITH PAGE LENGTH VALUE 
2432 022152 012737 022160 001110 MOV #3$,SLPERR :SET LOOP RROR POINTER TO 3 
2433 022160 012706 001100 3$: MOV #KERSTK,KSP E SURE STACK POINTER IS ALL SET UP 
2434 022164 011001 MOV (RO) R1 “ACCESS VIRTUAL ADDR. ( PLF - NO ABORT) 
2435 022166 162700 000100 SUB #100. -FORM NEXT VIRTUAL ADDRESS IN RO 
2436 0 3172 012737 022200 001110 MOV #4$,$LPERR =SET LOOP ROR POINTER TO 4$ 
437 022200 012706 001100 4$: MOV #KERSTK,KSP :MAKE SURE STACK POINTER IS ALL SET UP 
438 022204 011001 MOV (RO) ,R1 sACCESS VIRTUAL ADDR. (VBA=PLF - NO ABORT) 
2439 022206 162700 000100 SUB #100.RO :FORM NEXT VIRTUAL ADDR. IN RO 
2440 022212 020027 100000 CMP RO, #100000 sHAVE ALL PLF*S BEEN TESTED YET? 
2441 022216 001470 BEQ 10$ :BRANCH IF ALL VBA'S & PLF'S HAVE BEEN USED 
2442 022220 012737 022234 001110 MOV #5$,SLPERR :SET LOOP ON ERROR POINTER TO 
2443 0 206 012737 022242 000250 MOV #6$ ,.MMVEC SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 
2444 022234 011001 5$: MOV (RO) R1 :ACCESS VIRTUAL ADDR. (VBA < PLF - ABORT TO 6$) 
445 022236 104010 ERROR +10 :EXPECTED PAGE LENGTH ABORT “DID NOT OCCUR 
446 *FOR TIGHTER SCOPE LOOP 
447 : REPLACE ERROR CALL WITH 
448 "BR 5$°° = 000776 
2449 022240 000424 BR 8$ ‘ BRANCH H AROUND ABORT CHECKS 
2450 022242 012706 001100 6$: MOV #KERSTK,KSP sRESTORE STACK POINTER FOLLOWING ABORT 
2451 022246 013737 177572 001264 MOV SRO, WASSRO sREAD M.M. STATUS REG. 0 
245g 022254 013737 177576 001270 MOV SR2,WASSR2 “READ STATUS REG. 2 
245 022262 012702 040011 MOV #40011,R2 “PUT EXPECTED SRO CONTENTS IN R2 
454 0 020237 001264 CMP R2,WASSRO :DID SRO REPORT PG. LENGTH ABORT. PG. 4. KERNEL? 
455 022272 001401 BEQ 7$ =BRANCH IF YES 
456 022274 104011 ERROR +11 SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
457 “FOR TIGHTE ER SCOPE L 
458 ; REPLACE ERROR CALL WITH 
459 :'BR 5$"' = 00 
460 0 2376 012703 022234 7$: MOV #5$,R3 “PUT EXPECTED S$R2 CONTENTS IN R3 
2461 02 020337 001270 CMP R3,WASSR2 :DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 
46¢ 022306 001401 BEQ 8$ “BRANCH IF YES 
463 022310 104012 ERROR +12 *SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
464 “FOR TIGHTER SCOPE LOOP 
465 SREPLACE ERROR CALL WITH 
466 :"BR 5$" = 000751 
467 0 312 042737 160000 177572 8$: BIC #160000,SR0 “CLEAR ERROR BITS IN SR 
468 022320 162704 000400 SUB #400,R4 >FORM NEXT PLF VALUE FOR KIPDR 
469 022324 062700 000100 ADD #100,R0 ;FORM FIRST VIRT. ADDR. FOR THAT PLF VALUE 
330 0007 BR 2$ “BRANCH BACK AND ACCESS 3 VBA'S FOR 





cas eee 11/44 MEM MGMT 


TEST 


12637 
12637 
13737 
13737 
7 
104007 


pi gars 


5 0224600 012737 


PRT 8 


1 
177576 
160000 


001360 


016142 


MACRO M1113 
# 5S - PAGE LENGTH FAULTS=DOWNWARD EXPANS] 


001 
001 
177 


270 


72 


000250 


9$: 


10$: 


MOV 
mOV 
MOV 
BIC 
ERROR 


=38 


8 7 
es 12:19 PAGE 65-1 


(KSP) +, TRAPPC 
(KSP)+, TRAPPS 
SRO 


SRO.WA 
SR2,WASSR2 


#160000, SRO 
+7 


TRAPPS ,=(KSP) 
TRAPPC ,-(KSP) 


A#MGMERR , MMVEC 


SEQUENCE 


;THE PLF VALUE JUST FORMED 
7SAVE PC & PS OF TRAP 


;SAVE CONTENTS OF SRO FOR ERROR 
: SAVE CONTENTS OF SR2 FOR ERROR 

CLEAR ERROR B1TS_IN 
:G0T PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
:FOR TIGHTER SCOPE LOOP 

PLACE ERROR CALL WITH 
A NOP 24 


PUT PC 7 PS OF TRAP ON STACK 









RETURN FROM UNEXPECTED ABORT 


RESTORE NORMAL M.M. TRAP HANDLER 
;ADDRESS TO M.M. TRAP VECTOR 


79 


—_ = 


Cc 7 
| SEaree” 11/44 as MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 66 SEQUENCE 680 
TEST # 6 = SR2 BIT TEST 









2500 -SBITL TEST # 6 = SR2 BIT TEST 
{EAA AAA AAA AAA AERA AREER REAR RARAEARAERRAEREREERERRRRRE EEE 
:*TEST b SR2 BIT TEST 
: THIS TEST CHECKS THE BITS, IN MEMORY MANAGEMENT REGISTER 2 BY 
:* CAUSING "READ-ONLY ABORTS IRTUAL ADDRESSES BETWEEN 100000 
ot TO 111000 (PHYSICAL ADDRESSES 06000 IPDR4 IS USED TO EXECUTE 
:* THE FOLLOWING FOUR WORDS OF CODE aon ARE MOVED THRU MEMORY: 
:* 010727 MOV PC,(PC)+* THIS INSTRUCTION SHOULD CAUSE A R/O ABORT 
:* 000000 VIRTUAL ADDR. SHOULD BE LOCKED UP IN SR2 
8 000137 JMP a#3$  : THIS INSTRUCTION IS ALSO MOVED THRU MEMORY 
:* (ADDR. OF 3$) :IN CASE A R/O ABORT DOES NOT OCCUR, 
8 :IN WHICH CASE SR2 WILL NOT CONTAIN CORRECT ADDR. 
Ke 
*: RAEEEAAAEAEKEAEEAEAREAKRAAEEEETERKAEKREAEKAAEEEKREKEKREAREAREAAKAKKAAKRKEKRKKEKEEE 
022406 000004 TST6: SCOPE 
2501 022410 012737 000600 172346 1$: MOV #600, KIPAR3 :BE SURE PAR3 IS MAPPED TO 12-16k 
2502 022416 012737 000600 172350 MOV IPA sBE SURE PAR4 IS MAPPED TO 12-16k 
2503 022424 012737 077406 172306 MOV #77406,KIPDR3  :MAP PAGE 3 128 BLOCKS, R/W 
2504 022432 012737 077402 172510 MOV #77402.KIPDR4 :MAP PAGE 4 128 BLOCKS. - 
2505 022440 012700 060000 MOV # R :LOAD RO WITH VIRTUAL ADDR. WHICH USES PDR3 
2506 022444 012701 100000 MOV #100000,R1 =LOAD R1 WITH VIRTUAL ADDR. WHICH USES PDR4 
2507 022450 012737 022504 000250 MOV #3$ ,MMVEC SET mM. TRAP VECTOR TO 3$ 
2508 022456 012737 022464 001110 MOV #2$.S$LPERR >SET LOOP ON ERROR POINTER TO 2$ 
2509 022464 012720 010727 2$: MOV #0107 7, (RO)+ ; LOAD "HOV, PC (PC) +" INSTRUCTION AT ADDR. 
2510 022470 005020 CLR (RO) + ACHED HRU PDR/PAR 4. 
2511 022472 012720 000137 MOV #000137,(RO)+ LOAD 3 a#3$'’ INSTRUCTION AT VIRT. ADDR. 
e512 022476 012710 022504 MOV #3$, (RO) IN CASE R/O VIOL. DOES NOT ABORT 
2513 022502 010107 MOV R1,PC TRANSFER PROGRAM EXECUTION TO ‘PAGE 4 INSTRUCTIONS’’ 
2514 022504 012706 001100 3$: MOV AKERSTK.KSP SRESTORE STACK POINTER 
515 022510 013737 177576 001270 MOV SR2,WASSR2 :READ CONTENTS OF STATUS REG 2 
516 022516 020137 001270 CMP R1,WASSR2 WAS ADDR. OF “RELOCATED ~ R/O ABORT'* LOCKED UP? 
2517 022522 001401 BEQ 4$ H IF YES 
2518 022524 104013 ERROR +13 -SR2 DID NOT LOCK UP VIRTUAL ADDR. OF R/O VIOL. 
2519 FOR TIGHTER SCOPE LOOP 
2520 =REPLACE ERROR CALL WITH 
2521 : " = 000757 
25 2 022526 042737 160000 177572 4$: BIC #160000, SRO ; CLEAR THE ERROR BITS IN SRO 
2523 022534 162700 000004 SUB #4,R0 -RESET RO TO POINT TO NEXT VIRT. ADDR. TO LOAD 
2524 02540 062701 000002 ADD #2,R1 “FORM VIRTUAL ADDR. THAT SHOULD BE LOCKED UP NEXT 
2525 022544 020127 111002 CMP R1.#111002 sHAVE ALL VBA'S 100000-111000 BEEN TESTED? 
¢3 ¢ 022550 103745 BLO 2$ “BRANCH IF NO 
2508 022552 012737 077406 172310 58: MOV #77606,KIPDR4 ;RESTORE PDR4 TO R/W ACCESS 
2529 022560 012737 016142 000250 MOV #MGMERR.MMVEC  :RESTORE ADDRESS OF NORMAL 
2530 *TRAP HANDLER TO M.M. VECTOR 
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TEST # 7 = MORE CHECKS OF SRO & SR2 


2544 .SBTTL TEST # 7 ~ MORE CHECKS OF SRO & SR2 
J SAAR AA AAAAAAAAAAAAAAAAAAAARAERAAAAEAERAKRKRRAEAAKRE KARE REE Ee 
: STEST 7 MORE CHECKS OF SRO & SR2 
. THIS TEST PERFORMS SOME ADDITIONAL CHECKS OF THE SRO & SR2 LOGIC. 
<8 FIRST IT CHECKS THAT SR2 ‘‘TRACKS'’ ALONG ACTING AS A VIRTUAL ADDRESS 
:* PROGRAM COUNTER. ALSO SRO & SR2 ARE LOCKED UP BY A PAGE LENGTH 
:* ABORT, THEN WITHOUT CLEARING SRO'S ERROR BITS, A R/O ABORT IS CAUSED. 
:* SRO & SR2 SHOULD NOT BE CHANGED BY THE SECOND ABORT AND THE 
:# INFORMATION ABOUT THE PAGE LENGTH ABORT SOULD STILL BE LOCKED UP. 
:* IN ADDITION A "RESET Is EXECUTED TO VERIFY THAT SRO IS CLEARED 
8 AND SR2 IS UNLOCKED BY A RESET. AFTER MEMORY MANAGEMENT IS TURNED BACK ON. 
8 eRe 1S CHECKED TO SEE THAT IT IS TRACKING AGAIN. 
** 
TTTITITIIIIILI ITLL LLL LLL LL ELE LLL TTT TTT 
022566 000004 TST7: SCOPE 
2545 022570 012737 000600 172352 1$: MOV #600, KIPARS :MAP KERNEL PAGE 5 TO 12-16K 
2546 022576 012737 000406 172310 MOV #406. KIPDR4 “SETUP PDR4 FOR PAGE LENGTH ABORT 
2547 022604 012737 077402 172312 MOV #77402,KIPDRS :SETUP PDRS FOR 
2548 0 2612 012737 022620 001110 MOV #2$,$LPE :SET LOOP 0 2$ 
2549 022620 013737 177576 001270 2% MOV SR2.WASSR2 “READ SR2 TO SEE IF ITS TRACKING 
2550 022626 012701 022620 MOV #2$.R1 :PUT EXPECTED VIRTUAL PC IN R1 
2551 022632 020137 001270 CMP R1,WASSR2 “DID SR2 CONTAIN VIRTUAL PC AT 2$7 
g55¢ 022636 001401 BEQ $ ; BRANCH YES 
2553 022640 104016 ERROR +16 SR2 NOT! TRACKING CORRECTLY 
2554 :FOR TIGHTER SCOPE LOOP 
559 : REPLACE ERROR CALL WITH 
2557 022642 012737 022650 001110 38: MOV #4$,S$LPERR [SET LOOP ON ERROR POINTER TO 4$ 
2558 022650 013737 177576 001270 4S: MOV SR2,WASSR2 sREAD SR2 TO SEE IF ITS TRACKING 
2559 022656 012701 022650 MOV #4$,R1 :PUT EXPECTED VIRTUAL PC IN R1 
2560 0 e662 020137 001270 CMP R1,WASSR2 :DID SR2 CONTAIN VIRTUAL PC AT 4$ 
2561 022666 001401 Q $ “BRANCH IF YES 
2562 022670 104016 ERROR +16 7SR2 NOT TRACKING CORRECTLY 
256 >FOR TIGHTER SCOPE LOOP 
2564 REPLACE ERROR CALL WITH 
2565 :"BR 4$" = 000767 
2566 022672 012737 022700 001110 S$: MOV #68. SLPERR :SET LOOP ON E POINTER TO 6$ 
2567 022700 012737 022716 000250 6$: MOV #7$ .MAVEC :PUT ADDRESS OF 7$ IN M.M. TRAP VECTOR 
2568 022706 005037 001200 CLR TMP :CLEAR ERROR INDICATOR 
2569 0 rte 005237 100500 INC a4#100500 7 CAUSE PAGE LENGTH ABORT - TRAP TO 7$ 
2570 0 716 0127 001100 7$: MOV #KERSTK,.KSP “RESTORE STACK POINTER AFTER ABORT 
2571 022722 013737 177572 001176 MOV SRO, $TMPO :SAVE SRO'S INFORMATION ON PG. LGTH. ABORT 
2578 730 013737 177576 00120 MOV SR2.$TMP2 “SAVE SR2" : INFORMATION ON PG. LGTH. ABORT 
5 736 012737 028750 00025 MOV #8$_MMVEC PUT ADDRE SS OF 8$ IN M.M. TRAP VECTOR 
2574 022744 005237 120000 INC aie “CAUSE R/O ABORT - TRAP TO 8$ 
2575 022750 O12 06 1100 8$: MOV #KERSTK,KSP :RESTORE STACK POINTER AFTER ABORT 
576 022754 013737 177572 001264 MOV = SRO, WASSRO ;READ SRQ FOLLWOING SECOND KT ABORT 
577 0227 013737 177576 001270 MOV SR2.WASSR2 *READ SR2 FOLLOWING SECOND KT ABORT 
578 0227 23737 001176 001264 CMP STMPO,WASSRO =: IS SRO STILL HOLDING INFO ON FIRST ABORT? 
579 022776 001402 BEQ oS BRANCH IF YES 
580 005 001200 INC $TMP :SET E INDICATOR 
581 023737 001202 001270 9S: CMP STMP? WASSR2 ;DOES SR2 STILL HOLD PC OF FIRST ABORT? 
5 3012 0014 BEQ 10$ CH IF YES 
2583 023014 52 001200 INC $TMP1 “SET ERROR INDICATOR 
2584 023020 005737 001200 10$: TST STMP1 ‘WERE SRO OR SR2 CHANGED BY A SECOND ABORT? 
2585 023024 001401 BEQ 11$ “BRANCH IF Oo 
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TEST # 7 ~ MORE CHECKS OF SRO @ SR 


| 
| 1 14 ERROR +14 ;ONE OF 
i wee LM Reg 
| $2n6 :" BR ag" : 50073 
| 590 02 005037 001200 11$: CLR STMP1 “CLEAR ERROR INDICATOR ae 
591 0 5 RESET sEXECUTE A RESET, APPLYING AN “INIT 
| 592 0 013737. 177572 001264 MOV SRO, WASSRO TREAD SRO 
593 023044 005737 001264 TST WASSRO ‘WAS SRO CLEARED BY THE RESET? 
594 023050 001402 BEQ 1 : HIF Y 
2595 023052 0052 1200 INC $TMP1 “SRO NOT CLEARED BY A RESET 
-596 023056 013737 177576 001270 12$: MOV SR2,WASSR2 :R R 
597 0 022737 023056 001270 CMP #12$,WASSR2 “WAS SR2 UNLOCKED BY A RESET? 
598 023072 00140 BEQ 13$ “BRANCH IF YES 
2599 023074 005237 001200 INC $TMP1 :SR2 NOT UNLOCKED BY A RESET 
2600 023100 005737 001200 13$: TST $TMP1 “WERE SRO & SR2 BOTH ‘'RESET’’ BY A RESET? 
2601 023104 001401 BEQ 14$ “BRANCH IF YES 
2602 023106 104015 ERROR +15 =SRO OR SR2 NOT "'RESET’’ BY A RESET 
260 “FOR TIGHTER SCOPE LOOP 
2604 REPLACE ERROR CALL WITH 
2605 :'BR 6$'° = 000676 
2606 023110 005237 177572 14$: INC SRO [TURN MEMORY MANAGEMENT BACK ON 
2607 023114 013737 177576 001270 15$: MOV SR2 WASSR2 [READ SR2 TO SEE IF ITS TRACKING AGAIN 
2608 023122 012701 023114 MOV #15$,R1 :PUT EXPECTED VIRTUAL PC IN R1 
2609 023196 020137 001270 CMP R1,WASSR2 [DID SR2 CONTAIN VIRTUAL PC AT 15$ 
023132 001401 BEQ 16$ *BRANCH IF YES 
023134 104016 ERROR +16 =SR2 NOT TRACKING CORRECTLY 
[FOR TIGHTER SCOPE LOOP 


REPLACE ERROR CALL WITH 
"BR 6$** = 000663 


023136 0127 172310 168: MOV #77406,KIPDR4 ;RESET PDR4 TO 128 BLKS, R/W 

023144 012737 077406 172312 MOV #77406,KIPDRS ;RESET PDRS TO 128 BLKS, R/W 

023152 0127 000250 MOV #MGMERR,MMVEC ;RESTORE ADDRESS OF NORMAL MEMORY 
MANAGEMENT TRAP ROUTINE TO M.M. VECTOR 
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TEST # 10 = SUPER/USER ABORT PICKS UP KERNEL VECTOR 


2632 - SBTTL TEST # 10 = SUPER/USER ABORT PICKS UP KERNEL VECTOR 


J EAA AEA AEE AAA ARERR EAE EREEERKREKE EERE Ee 


SEQUENCE 





| **TEST 10 SUPER/USER ABORT PICKS UP KERNEL VECTOR 
** 
a THIS TEST CHECKS TO BE SURE THAT WHEN AN ABORT OCCURS WHILE 
:* IN SUPERVISOR OR USER MODE, THE TRAP VECTOR INFORMATION 
o* FETCHED IS TAKEN KERNEL SP ace. USER PAGE 0 IS MAPPED 
8 TO 12k (60000- Mare SO THAT IF USER SPACE 1S USED INSTEAD 
:* OF KERNEL, THE NEW PC THAT WAS LOADED AT LOC. 060004 IS USED 
ie INSTEAD OF THE NEW PC THAT SHOULD BE PICKED UP FROM LOC. 00000 
i THE SUPERVISOR PAGE 0 IS THEN MAPPE 12K, THE 
:* IS REPEATED FOR SUPERVISOR MODE. AN ODD ADDRESS ERROR IS 
:* USED TO CAUSE A TRAP TO ‘'4"', 
** 
PI TITIIIIITITIT ITI TIT IIIT IIIT LITT LiLLL LLL LLL LLL LLL TTT 
023160 000004 TST10: SCOPE 
2633 023162 004737 002356 1$: JSR : TURN OFF T-BIT TRAPPING FOR THIS TEST 
2634 023166 012737 023174 001110 MOV #58 SLPERR :SET LOOP ON ERROR POINTER TO 2$ 
2635 023174 005037 177776 2$: CLR W *GO TO KERNEL MODE 
5036 023200 012706 001100 MOV MKERSTK ,KSP > SETUP KERNEL STACK PTR. 
** 
2638 :* TEST USER MODE ABORT 
;* 
2640 023204 012737 000600 177640 MOV #600, UIPARO ;MAP USER PAGE 0 TO 12k 
2641 023212 012737 023274 000004 MOV #43044 “LOAD KERNEL VECTOR 4 (LOC.4) WITH 4$ 
2642 023220 012737 000340 000006 MOV #340, aa6 TOAD VECTOR+2 WITH NEW PSW 
2643 023226 012737 140000 177776 MOV #14 :GO TO USER MODE 
2644 023234 012706 000600 MOV #USESTK USP : SETUP USER STACK PTR. 
2645 023240 012737 023260 000004 MOV $.af OAD USER VECTOR 4 (LOC. £0004) WITH 3$ 
2646 023246 012737 000340 000006 MOV 340, a#6 {LOAD VECTOR?2. WITH NEW at 
2647 023254 005737 023261 TST +7 :CAUSE ODD ADDR. ERROR T RAP TO 7 
2648 ‘SHOULD PICK UP NEW PC=4$ FROM KERNEL 
[LOC. 4, NOT PC=3$ FROM USER LOC. 4 (=60004) 
2650 023260 013701 177776 3$: MOV PSwW,R1 [SAVE PSW FOR ERROR 
2651 023264 010602 MOV SP R2 :SAVE VALUE OF STACK POINTER FOR ERROR 
2652 023266 005037 177776 CLR PSW *BE SURE BACK IN KERNEL MODE 
2653 023272 104017 ERROR +17 [DID NOT TRAP THRU KERNEL SPACE 
2654 >FOR TIGHTER SCOPE LOOP 
2655 :REP LACE ERROR CALL WITH 
2656 = 000740 
2657 023274 005037 177776 4$: CLR PSW BE scReE BACK IN KERNEL MODE 
2658 023300 012706 001100 MOV #KERSTK.KSP “RESTORE KERNEL S.P. IN CASE IT CHANGED 
2659 023304 005037 177640 CLR PAR “REMAP USER PAGE 0 TO 0-4k 
2660 023310 012737 140000 177776 MOV #140000, PSwW -GO TO USER MODE 
2661 023316 012706 000600 MOV #USESTK USP “RESTORE USER STACK POINTER 
662 023322 005037 177776 CLR PSW *GO BACK TO KERNAL MODE 
** 
2664 :* NOW TEST THE SUPERVISOR MODE ABORT 
** 
2666 023326 012737 000600 172240 MOV #600, SIPARO :MAP SUPERVISOR PAGE 0 TO 12k 
2667 023334 012737 023416 000004 MOV K ‘LOAD KERNAL VECTOR 4 WITH 6$ 
023342 012737 000340 000006 MOV #340. an6 [LOAD VECTOR+2 WITH NEW PSW 
2669 023350 012737 040000 177776 MOV #40000,Psw *GO TO SUPERVISOR MODE 
2670 023356 012706 000700 MOV PSUPSTK. SSP > SETUP SUPERVISOR STACK PTR. 
671 023362 012737 023402 000004 MOV #5$.an4 ;LOAD SUPERVISOR VECTOR 4 (LOC. 60004) WITH 5$ 
2672 023370 012737 000340 000006 MOV #340, an6 LOAD VECTOR+2 WITH NEW PSW 
2673 023376 005737 023403 TST 5$+ ‘CAUSE ODD ADDR. ERROR” TRAP TO °% 
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son 
5685 0 3248 003087 177776 
2684 02342 ore 06 001100 
5 0 3285 00 OFF 172240 
0 8155 7 Q40000 177776 
2687 0 re9 012706 000700 
2688 023444 005037 177776 
2689 023450 012737 016070 000004 
2690 023456 004737 002412 


MACRO M1113 
TEST # 10 = SUPER/USER ABORT PICKS UP KERNEL VECT 


5$: 


6$: 


Ne 


7 
sparse 12:19 PAGE $81 


PSW,R1 
2 


p 
+17 


PSW 
#KERSTK,KSP 
SIPARO 
#40000 ,PSW 
ASUPSTK,SSP 


PSW 
ATIMERR ,aa4 
PC,TON 


; SHOULD PICK UP 


SS — — — 


SEQUENCE 


Ww PC=6$ FROM KERNEL 
“LOC. 4 NOT PC=5$ FROM SUPERVISOR LOC. 4 (=60004) 
{SAVE P PSw FOR ERROR 


7SAVE VALUE OF STACK POINTER FOR ERROR 
7BE SURE BACK IN KERNEL 
:DID NOT TRAP lot i SPACE 


7BE SURE BACK IN KERNEL MODE 
RESTORE KERNEL S.P. IN = IT CHANGED 
: REMAP eavisen PAGE 0 TO 0-4Kk 


vIS 
RESTORE oa STACK POINTER 
wr 


G0 BACK 
RESTORE ADDR OF NORMAL “ TRAP HANDLER TO 4 


: TURN T=BIT TRAPPING BACK 
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TEST # 11 = RTI IN SUPER/USER MODE DOES NOT CHANGE P 


| 2697 -SBTTL TEST # 11 ~ RTI_IN SUPER/USER MODE DOES NOT CHANGE PSW 
J ERA AAAEAEAERAARAAEAEAERAKEARAERAEARAEAEREAEEREKAEKRAEEEKEKREREEE EE 
**TEST 11 RTI IN SUPER/USER MODE DOES NOT CHANGE PSW 
;* 
- THIS TEST CHECKS TO SEE THAT WHEN AN RTI IS EXECUTED IN SUPERVISOR 
:* OR USER MODE, THE MODE OR PRIORITY BITS OF THE PSW ARE NOT CHANGED. 
**® 
PETTIITITITITITITITITITTTITITLTITiTiTii LiL Liii LLL LLL iti 
ania 023462 000004 TST11: SCOPE 
2699 023464 012737 023476 001110 1$: MOV #2$ SLPERR ;SET LOOP ON ERROR POINTER TO 2$ 
é 00 023472 01 702 1 MOV 176000, R2 “LOAD ‘PRESENT & EXPECTED’’ PSW VALUE INTO R2 
701 023476 01023 177776 2$: MOV 4 £60 TO PRESENT MODE-PRI 
702 023502 O12 46 000340 MOV RSkO. =(SP) PUT A NEW PSW (PRIORITY=7) ON STACK 
2703 0 306 012746 023514 MOV #3$,-( “PUT NEW PC ON T K 
2704 02351 2 RTI :DO AN RTI FROM PRESENT MODE 
2705 023514 013701 177776 3$: MOV PSW,R1 “READ NEW PSW INTO R17 
706 023520 042701 00743 BIC #7437,R1 :MASK OFF COND. CODE, T-BIT, AND UNUSED BITS 
707 023524 005037 177776 CLR PSW :GO BACK TO KERNEL 
708 023530 020201 CMP R2,R1 :DID PSW STAY IN PRESENT MODE, PRIORITY=0? 
2709 023532 001401 BEQ 4$ “BRANCH IF YES 
710 023534 104032 ERROR +32 :PSW CHANGED BY AN RTI FROM USER 
711 FOR A TIGHTER SCOPE LOOP 
erie ACE ERROR CALL WITH 
271 if = 000760 
ris 0 536 022702 050000 4$: CMP #50000,R2 7 IF SUPERVISOR MODE HAS BEEN CHECKED, 
715 023542 00140 BEQ TST1 ::G0 TO NEXT TEST 
2716 023544 012702 050000 MOV #50000.R2 :ELSE,SET SUPERVISOR MODE, 
2717 023550 000752 BR 2$ :AND BRANCH BACK TO TEST IT. 
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TEST # 12 = KT ERROR NOT SERVICED IF ODD ADDR. 


060001 
001100 


7 
001264 
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023640 
001270 
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172350 


000004 
000250 
001110 


177572 
000004 
000250 
172310 


a —————— - 


a 12:19 PAGE ey? 


SEQUENCE 


-SBTTL TEST # 12 = KT ERROR NOT SERVICED IF ODD ADDR. ERROR 


J EAA AAA AAE AAA REARAAEAAAAAAARARAEEEREEEEEEEAAREEKRERERRAE EE 


TRTEST 12 
+f 
38 
3% 
st 
:* ROR ISN'T. 
* SHOULD NOT 
** 
+t 
‘he 
réri2: SCOPE 
1$: MOV #600 ,KIPAR4 


MOV #77602,R5 
MOV R5,.KIPDR4 
MOV #6$, a4 

MOV #3$,a#250 
MOV #2$.$LPERR 


2$: INC 60001 
3$: ERROR +20 
4$ MOV #KERSTK,KSP 
CLR $TMP 1 
MOV SRO, WASSRO 
5$ MOV SRe. *WASSR2 
MOV #17.R0 
CMP RO, WASSRO 
BEQ 6$ 
INC $TMP1 
6S: MOV #5$,R1 
CMP R1,WASSR2 
BEQ 7$ 
INC $TMP1 
7$: TST $TMP1 
BEQ 8 
ERROR +21 


BIC #160000, SRO 
8$: MOV ATIMERR ,a#4 


RR ,a#250 
MOV #77406, KIPDR4 


KT ERROR NOT SERVICED IF ODD ADDR. ERROR 
THIS TEST pecs TO SEE THAT i. A CERTAIN VIRTUAL ADDRESS THAT 
D CAUSE A_MEMORY MANAGEMENT ERROR CAUSES AN 


AN ODD ADDRESS 


WOULD CAU 
ERRCR ioe THE ODD aaa ERROR IS ge BUT THE MEMORY 
MANAGEMENT ER THIS MEANS THAT SRO AND SR2 


R 
UP ITS VIRTUAL ADDRESS. 


REPORT THE ERROR OR LOCK 
— VIOLATION IS USED AS THE POTENTIAL MEMORY MANAGEMENT 


MADARA SRASZASZALASLAALALLALAARALALASALALSLELASSLSLE EERE SESE RAE EERE SSS SE 


:MAP KERNEL PAGE 4 TO 12-16Kk 
;LOAD PDR4 DATA INTO R5 


MAP PAGE 4 READ-ONLY 

:SET CPU TRAP VECTOR TO ADDRESS OF 4$ 
:SET M.M. TRAP VECTOR TO ADDRESS OF 3$ 
:SET ON ERROR ania" 


0 2$ 
ROR & POTENTIAL R/O ABORT 
STRAPPED THRU. MLM. VECTOR BUT SHOULDN'T HAVE 
FOR TIGHTER SCOPE LOOP 
: REPLACE, ERROR CALL WITH 
;'BR 2$" = 0007 


‘RESTORE STACK POINTER AFTER TRAPP ING 
EAR ERROR INDICATOR 


CL 

>READ STATUS REG. 0 

sREAD STATUS REG. 

;LOAD EXPECTED SRO CONTENTS INTO RO 

;SRO ERROR BITS LEFT CLEAR BY TRAPPING? 
;BRANCH IF 5 
;SRO ERROR BITS SET WHEN ODD ADDR. SERVICED 
[LOAD EXPECTED D sho CONTENTS INTO R1 

sWAS SR2 LEFT UNLOCKED BY TRAPPING? 


:BRANCH IF Y 
:SR2 LOCKED UP BY ODD ADDR. ERROR 
;WHERE SRO OR SR2 EFFECTED? 


BRANCH IF _NO 
SRO OR SR2 CHANGED BY ODD ADDR. ERROR 
:FOR TIGHTER SCOPE LOOP 
SREPLACE ERROR CALL WITH 

2$"* = 000741 


;CLEAR ERROR BITS THAT MAY BE a IN SRO 
: ADDRESS OF CPU TRAP HANDLER 
sRESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
sREMAP PAGE 4 TO READ/WRITE 


86 
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xx TBDO 11/44 MEM MGMT PRT B MACRO M1113 fl 12:19 PAGE 4, 7 SEQUENCE 


15 = PC & PSw SAVED FOR KT ERROR ON ODD AD 


eee —. 
te eects 


2777 -SBTTL TEST # 13 ~ PC & PSW SAVED FOR KT ERROR ON ODD ADDR. 
PTT II IIT TITI TI LITILIL ITIL LL TLL LTE LTT 
S*TEST 13 PC & PSW SAVED FOR KT ERROR ON ODD ADDR. 
*® 
:* THIS TEST CHECKS THE PC AND PROCESSOR STATUS WORD SAVED WHEN 
se A KT ERROR OCCURS DURING THE SECOND PUSH ON THE STACK DURING 
:* SERVICING OF AN ODD ADDR. ERROR. DURING A ‘DOUBLE £ 
:* SEQUENCE SUCH AS THIS, THE PSW SAVED WILL BE THE ONE PICKED uP 
:* FROM VECTOR+2 (LOC. 6 IN THIS CASE) AFTER THE FIRST TRAP, 
- NOT THE PSW PRESENT BEFORE THE FIRST TRAP. SRO AND SR2 
:* SHOULD RECORD THE KT ERROR (A R/O VIOLATION BY THE USER STACK PTR.) 
** 
ie NOTE THAT THE PREVIOUS MODE BITS <13:12> OF THE PSW 
;* WILL BE SET IN THE PSW THAT IS SAVED. 
** 
*: TERA AAERAAAAAAEAARAAAAEEAAERAARARRARARERAAAARERARAEREREEEHERED 
023742 04 TST13: SCOPE 
2778 023744 004737 002356 1$: JSR ; TURN T-BIT TRAPPING OFF FOR THIS TEST 
2779 023750 012737 000600 177646 MOV #600. UIPAR3 ;MAP USER PAGE 3 TO 12-16k 
2780 023756 012737 0 177650 MOV #6 YIPARG USER PAGE 4 TO 12-16k 
2781 023764 012737 077402 177606 MOV #77402.UIPDR3  =MAP USER PAGE 3 READ-ONLY 
2782 023772 012737 077406 177610 MOV #77406,.UIPDR4 :MAP USER PAGE 4 READ/WRITE 
024000 012737 024054 000004 MOV 4 an [LOAD ADDRESS OF 4$ IN CPU (ODD ADDR.) VECTOR 
2784 024006 012737 140017 000006 MOV #140017.a46 :LOAD PSW THAT SHOULD BE PUT ON STACK IN VECTOR+2 
2785 024014 012737 024054 000250 MOV 4$,a#250 “LOAD ADDRESS OF 4$ IN M.M. ,JRAP VECTOR 
2786 024022 012737 000340 000252 MOV #340, a#252 *LOAD A KERNEL PSW IN 
2787 024030 012737 024036 001110 MOV 2s $LPERR ;SET LOOP ON E POINTER TO 2$ 
2788 024036 012737 140000 177776 28: MOV 140000. PSw TO USER MOD 
2789 024044 012706 100002 MOV #100002. USP >SET USER STACK PTR. SO SECOND PUSH IS IN PG. 3 
2790 024 005237 100005 3$: INC 100005 :CAUSE ODD ADDRESS ERROR THAT WILL CAUSE 
2791 =R/O E WHEN TRY TO SAVE OL 
2798 024054 016601 000002 4$: MOV 2(KSP).R1 :PUT PSW SAVED ON KERNEL STACK INTO R1 
024 011603 MOV (KSP) ,R3 :PUT PC SAVED ON KERNEL STACK INTO R3 
024 013737 177572 001264 MOV SRO,WASSR [READ THE CONTENTS OF M.M. STATUS REG. 0 
2795 0264070 013737 177576 001270 MOV SR2.WASSR2 TREAD THE CONTENTS OF M.M. STATUS REG. 2 
2796 024076 042737 160000 177572 BIC #160000, :CLEAR THE ERROR BITS IN SRO 
2797 024104 005037 177776 CLR SW :BE SURE IN KERNEL MODE 
2798 024110 012706 001100 MOV #KERSTK,KSP :RESTORE KERNEL STACK POINTER 
2799 024114 012737 140000 177776 MOV #140000.PSwW TO USER MODE 
2800 024122 012706 000600 MOV #USESTK.USP “RESTORE USER STACK POINTER 
2801 024126 005037 177776 CLR PSW >GO BACK TO KERNEL MODE 
2802 024132 005037 001176 CLR STMPO CLEAR ERROR INDICATOR 
2803 024136 020127 170017 CMP R1,4170017 WAS THE PSwW SAVED THE ONE PICKED UP BY THE 
2804 “ODD poor TRAP FROM ERR 
2805 :VALUE 170017 = PSW FROM COC .. WITH 
2806 < PREVIOUS MODE BITS = USER 
2807 024142 00140 BEQ 5$ “BRANCH IF YES 
2808 024144 005237 001176 INC $TMPO :WRONG PSW SAVED DURING ‘DOUBLE ERROR’’ SEQUENCE 
2809 024150 020327 024054 5$: CMP R3,43$+4 ‘WAS THE PC AT THE TIME OF THE ODD ADDR. ERROR 
2810 >SAVED ON THE STACK? 
2811 024154 001402 BEQ ; BRANCH IF Y 
2812 024156 005237 001176 INC $TMPO WRONG PC SAVED DURING TRAP SEQUENCE 
2813 024162 023727 001264 020147 6S: CMP WASSRO,#20147 :DID SRO REPORT - USER. PAGE 3, R/O ABORT? 
2814 024170 001402 BEQ 7$ ; BRANCH IF YES 
2815 024172 005237 001176 INC $TMPO >SRO DID NOT REPORT R/O ABORT 
2816 024 023727 001270 024050 7s: CMP WASSR2 ,#3$ *DID SR2 LOCK UP VIRTUAL ADDR. OF LAST 
2817 : INSTRUCTION SUCCESSFULLY FETCHED? 
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PRT 8B MACRO M1113 fla 12:19 PAGE M1 SEQUENCE 88 
AVED FOR KT ERROR ON ODD AD | 


BEQ 8$ ;BRANCH IF YES 
001176 INC STMPO : SRe Pup NOT LOCK UP ADDR. OF ODD ADDR. INST. 
001176 8$: TST STMPO 'ERRORS*’ DURING TRAP SEQUENCE? 

BEQ 9$ BRANCH IF oe 

ERROR +22 : THE WRONG PC OR PSW WERE SAVED 


OR SRO OR SR2 0 os NOT REPORT R/O 
{ERROR DURING OD D ADDR. = KT TRAP 


EQUE 

:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
i BR 2S" = 000710, 


016070 000004 9S: MOV #TIMERR, ae RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
000340 000006 MOV #340, a6 sRELOAD ERRVEE SS Ones KERNEL PSW 

016142 000250 MOV RR,a#250 RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
077406 177606 MOV #77406,UIPDR3 :REMAP USER PAGE 3 READ/WRITE 

002412 JSR PC, TON ‘TURN T-BIT TRAPPING BACK ON 


— - ee Se 
- ee —— ——_—  — 


| 7 
xx TBD 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE be SEQUENCE 89 
GROUP D-SPACE TESTS 


-SBTTL GROUP 2 D-SPACE TESTS 
5 SPs tall 4 tll eels bal 6 Bad 6 Dal a Gale bed Gl « Bobs tod o had a hed «bed oc ted cheba tetateda® 
$F wad «Nol o Val a Nel « Nob a Nol a Nel aed oNol Nel aNeb aNeb Nob aNcF ce Neh Nel eel eNeto% 


SEStee 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE a3 SEQUENCE 90 
TEST # 14 = ENABLE D=SPACE AND SEE THAT I-SPACE IS FORCED 


2852 -SBTTL TEST # 14 ~ ENABLE D-SPACE AND SEE THAT I-SPACE IS FORCED 
{RARER TERRE EAAAAAAEAEREREAREAEAARR KARR Ee 
**eTEST 14 ENABLE D-SPACE AND SEE THAT I-SPACE IS FORCED 
* 
* THIS TEST SHOWS THAT I=SPACE IS FORCED DURING INSTRUCTION FETCHES. 
:* AND ADDRESS, INDEX AND OPERAND FETCHES IF THE REGISTER FIELD IS 7. 
**® 
ie ALL ERRORS FOUND _IN THIS TEST ARE REPORTED WHEN THE CPU 
is ABORTS THRU 'MMVEC'' TO SUBROUTINE "NODSPAC’’. THIS SUB- 
+ ROUTINE WILL REPORT THAT D=SPACE WAS NOT ENABLED PROPERLY. 
*“* 
:* NOTE - WHENEVER A DSTM=3,6,7 IS SHOWN, AND THE OPERAND IS 
ze '100000', I-SPACE IS FORCED IN THE OPERAND FETCH, 
zt BUT D=-SPACE WILL BE FORCED ON THE ACCESS OF THE 
:* LOCATION; CORRECT OPERATION IS CHECKED. 
** 
*: RAEEAEKEKEEEAAEAKAKRERAREEEEAAEAAEEAAAEERAKREAREARAARAEAEKEKAEAKEKKKEEAE 
024256 000004 TST14: SCOPE 
: INITIALIZE KERNAL I/D SPACE PAR S AND PDR'S 
2854 024260 005037 177572 CLR MMRO : TURN OFF MEMORY MANAGEMENT 
2855 024264 012700 077400 MOV #77400,R0 *MAKE KERNAL D=SPACE PGS. 1,283 NON-RESIDENT 
2856 024270 010037 172310 MOV RO, KIPDR4 sAND KERNAL I-SPACE PDR4 NON-RESIDENT 
2857 024274 010037 172322 MOV RO. KDPDR1 
024 010037 172324 MOV : 
2859 024304 010037 172326 MOV RO. KDPDR 
2860 024 012737 000600 172370 MOV #600, KDPAR4 :MAP K KDPARG TO 12=>16k 
2861 024316 012737 002232 000250 MOV #NODSPAC ,MMVEC :SET M.M. VECTOR TO D-SPACE SERVICE ROUTINE 
2862 024324 012737 024344 001110 MOV #10$,$LPERR *SET LOOP ON ERROR POINTER TO 10$ 
2863 024332 005237 177572 INC ; TURN ON MEMORY MANAGEMENT 
2864 024336 012737 000024 172516 MOV #24 .MMR3 ENABLE 22-BIT.KERNAL D-SPACE MAPPING 
2865 :* TEST THAT INSTRUCTION FETCHES FORCE I-SPACE 
** 
2867 024344 000400 10S: BR 4$ : BRANCH 
2868 024346 000244 4$: CLZ :CLEAR ZERO BIT IN PSW 
2869 024350 001776 BEQ 4$ : 
2870 024352 000264 5$: SEZ :SET ZERO BIT IN PSW 
2871 024354 001376 BNE 5$ NO 
2872 024356 000270 6$: SEN ;SET NEGATIVE BIT IN PSW 
2873 024360 100376 BPL 6$ 
74 rt TRY SOME SOP INSTRUCTIONS WITH SRCM=DSTM=0 
875 zs THESE SHOULD NEVER INVOKE D-SPACE 
**® 
2877 024362 005700 TST RO 
2878 024364 005200 INC RO 
2879 024366 005300 DEC RO 
2880 024370 006000 ROR RO 
2881 024372 006100 ROL RO 
2882 024374 005037 177572 CLR MMRO N OFF MEMORY MANAGEMENT 
3885 yt TEST SOB NON-MOD WITH pstmeo 3.6.7: DSTF=7 
;* 
885 024400 012737 100002 060000 MOV #100002,a#60000 :SET UP TEST LOCATION 
886 024406 012737 ; 4420 001110 MOV #11$,$LPERR =SET LOOP ON ERROR POINTER TO 11$ 
887 024414 005237 177572 INC MMR :TURN ON MEMORY MANAGEMENT 
2888 024420 005727 060000 11$: TST #60000 :DSTM=2 SOP NON-MOD 
2889 0 4404 005737 100000 TST a4#100000 :DSTM=3 SOP NON-MOD 
2890 024430 005737 1 TST 100000 =DSTM=6 SOP NON-MOD 
2891 024434 005777 053340 TST a100000 =DSTM=7 SOP NON-MOD 


ig-easineenasstpannesaaiiamiuenengein nose ess ele enrsieunsceisnsnsnniedsnnniansssowinntnhintsainta 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 73-1 SEQUENCE 91 
TEST # 14 = ENABLE D-SPACE AND SEE THAT I-SPACE IS FORCED 


| 892 0244460 005037 177572 CLR _MMRO :TURN OFF MEMORY MANAGEMENT 
| 898 :* TEST SOB MOD WITH DSTM=2.3,6.7; DSTF= 
**® 
B95 024444 012737 024464 001110 MOV #12$.$LPERR :SET LOOP ON ERROR POINTER TO 12$ 
896 024452 01 737 1 060002 MOV #100000,a#60002 :SET UP TEST VALUES 
897 024460 00 : 7? 177572 INC MMRO :TURN ON MEMORY MANAGEMENT 
2898 024464 005 ¢ 060000 12$: CLR #60000 “DSTM=2 SOP MOD 
2899 024470 005037 100000 CLR a#100000 “DSTM=3 SOP MOD 
2900 024474 005037 100000 CLR 100000 “DSTM=6 SOP 
1 024500 005077 053276 CLR a100002 “DSTM=7 SOP MOD 
908 024504 005037 177572 CLR MMRO > TURN OFF MEMORY MANAGEMENT 
** 
2904 :* THE NEXT THREE TESTS ARE CONCERNED WITH TESTING 
2905 ;* DOP AND NOT (SRCM=DSTM=0) 
2906 ** 
2907 oe TEST DOP DEST NON-MOD SRCM=DSTM=2,3.6,7:; SRCF=DSTF=7 
2908 ** 
2909 024510 012737 024530 001110 MOV #13$,$LPERR :SET LOOP ON ERROR POINTER TO 13$ 
2910 024516 012737 100000 060002 MOV #100000,a#60002 :SET UP TEST VALUE 
2911 024524 005237 177572 INC MMRO : ON MEMORY MANAGEMENT 
2918 0245 02 27 060000 060000 13$: CMP #60000,460000 :SRCM=2 DSTM=2 DOP NON-MOD 
291 024536 023737 100000 100000 CMP a4100000,a4100000 :SRCM=3 DSTM=3 DOP NON-MOD 
2914 026544 02 737 100000 100000 CMP :SRCM=6 DSTM=6 DOP NON-MOD 
2915 024552 027777 053224 053222 CMP @100002,a100002 :SRCM=7 DSTM=7 DOP NON-MOD 
2916 024560 005037 177572 CLR MMRO “TURN OFF MEMORY MANAGEMENT 
2917 :* TEST MOV DEST AND NOT(SRCM=DSTM=0) 
$919 :* SRCM=DSTM=2,3,6,7:; SRCF=DSTF=7 
** 
2920 024564 012737 024604 001110 MOV #14$,$LPERR :SET LOOP ON ERROR POINTER TO 14$ 
2921 024572 012737 100000 060002 MOV #100000,a#60002 :SET UP TEST VALUE 
2922 024600 005237 177572 INC MMRO = TURN ON MEMORY MANAGEMENT 
2923 024604 012727 060002 060002 148: MOV #60002.460002  ;SRCM=2 DSTM=2 MOV 
$904 024612 012737 060000 100000 MOV #60000.a#100000 :SRCM=2 DSTM=3 MOV 
5 024620 012737 060000 100000 MOV #60000, : SROM=2 DSTM=6 MOV 
2926 0 4626 012777 060000 053146 MOV #60000,a100002 :SRCM=2 DSTM=7 MOV 
2927 024634 005037 177572 CLR MMRO “TURN OFF MEMORY MANAGEMENT 
28 :* TEST DOP DEST MOD AND NOT SUB 
29 :* SRCM=DSTM=2,3,6.,7:; SRCF=DSTF=7 
;* 
2931 024640 012737 024652 001110 MOV #15$,SLPERR :SET LOOP ON ERROR POINTER TO 15$ 
32 024646 005237 177572 INC MMRO : ON MEMORY MANAGEMENT 
2933 024652 092727 060000 060000 158: BIS #60000, #60000 :SRCM=2 DSTM=¢ DOP MOD 
34 024660 052737 100000 BIS #00000, a#1 *SRCM=2 DSTM=3 DOP MOD 
35 024 052737 100000 BIS 4 *SRCM=2 DSTM=6 DOP MOD 
3 024674 05 777 000000 053100 BIS #00000,a100002 :SRCM=2 DSTM=7 D 
7 024702 037 177572 CLR MMR ; TURN OFF MEMORY MANAGEMENT 
2 ye TEST SWAB WITH DSTM=2,3.6,7; DSTF=7 
** 
0 024706 012737 024726 001110 MOV #16$,$LPERR :SET LOOP ON ERROR POINTER TO 16$ 
1 024714 01 037 190002 060000 MOV #100002,a#60000 :SET UP TEST VALUES 
: 4722 é 7? 17757 INC = TURN ON MEMORY MANAGEMENT 
47 : 7 16$: SWAB #60000 “DSTM=2 SWAB 
4 0247 7 100002 SWAB #100002 “DSTM=3 SWAB 
5 0247 7 1 é SWAB 10000 “DSTM=6 SWAB 
6 47% 77 (05 SWAB Sfsé120 “DSTM=7 SWAB 
024746 005037 177572 CLR MMRO , TURN OFF MEMORY MANAGEMENT 
8 * TEST ROT/SHFT WITH DSTM=2,3,6.7: DSTF=7 
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CKKTBDO 11/44 MEM MGMT PRT 8B MACRO M1113 12-JAN-B2 12:19 PAGE 3-5 SEQUENCE 
TEST # 14 = ENABLE D=-SPACE AND SEE THAT I-SPACE IS FORCED 


024772 001110 ~ MOV 
060002 








7$,SLPERR :SET LOOP ON ERROR POINTER TO 17$ 


ww 
—O°o 

oO 

* 

~— 
SN 
oo 
oad oad 


#1 
#1 





















737 
47 37 » 4 MOV 00600.a#60002 :SET UP TEST VALUES 
; 4766 237 17 INC MMR > TURN ON MEMORY MANAGEMENT 
4 127 17$: ROL “DSTM=2 ROT/SHFT 
598s 05003 b06137 100000 Rot DSTMcé ROT/SHET 
0 3006 9081 ? O55796 ROL a100002 “DSTM=7 ROT/SHFT 
57 025012 005037 177572 CLR MMRO , TURN OFF MEMORY MANAGEMENT 
$326 5* TEST ASH/ASHC WITH DSTM=2, ~6.7; DSTF=7 
2960 025016 012737 025044 001110 MOV #18$,SLPERR ;SET LOOP ON ERROR POINTER TO 18$ 
2961 025024 012737 1 060000 MOV #1, an :SET UP TEST VALUES 
2968 025032 012737 90000 060002 V #100000, a#60002 
025040 005237 177572 INC MMR O : TURN ON MEMORY MANAGEMENT 
2964 025044 072027 1 18$: ASH #1.RO “DSTM=2 ASH/ASHC 
5 025050 072037 100000 ASH a#100000,R0 “DSTM=3 ASH/ASHC 
2966 025054 072037 100000 ASH 100000, RO : DSTM=6 ASH/ASHC 
2967 925060 072077 052716 ASH a100002, RO =DSTM=7 ASH/ASHC 
2968 925064 005037 177572 CLR . OFF MEMORY MANAGEMENT 
a :* TEST MUL/DIV WITH DSTM=2,3,6,7: DSTF=7 
** 
2971 025070 012737 025102 001110 MOV #19$, SLPERR :SET LOOP ON ERROR POINTER TO 19$ 
re 025076 005237 177572 INC MMRO :T MEMORY MANAGEMENT 
2973 025102 070027 000002 19$: MUL #2,R0 :DSTM=2 MUL/DIV 
2974 025106 070037 100000 MUL a#100000,R0 =DSTM=3 MUL/DIV 
2975 025112 070037 100000 MUL 100000 ,.R0 =DSTM=6 MUL/DIV 
76 0 3116 070077 052660 @100002 RO > DSTM= V 
2977 025122 005037 177572 CLR MMR : OFF MEMORY MANAGEMENT 
pode. :* TEST JMP WITH DSTM=3.6,7; DSTF=7 
** 
2980 025126 012737 025146 001110 MOV #208. SLPERR :SET LOOP ON ERROR POINTER TO 20S 
2981 025134 012737 0 3162 060000 MOV #23$,a#60000 :SET UP TEST VALUES 
2982 025142 005237 17757 INC MMRO “TURN ON MEMORY MANAGEMENT 
2983 0 3146 000137 025152 208: §§ JMP a#21$ 
2984 025152 000137 025156 21$: JMP 22$ 
2985 025156 000177 052616 28: MP 4100000 7 JMP 
2986 025162 005037 177572 23$: CLR MRO > TURN OFF MEMORY MANAGEMENT 
2987 5% TEST SUB WITH DSTM=2,3.6.7: DSTF=7 
2988 *® 
2989 025166 012737 025210 001110 MOV #28$. SLPERR :SET LOOP ON ERROR POINTER TO 28% 
3990 025174 005 CLR RO -SET UP TEST VALUES 
1 025176 012737 190000 060002 MOV #109000 ,@#60002 
2992 025 005237 1775 . INC MMR : TURN ON MEMORY MANAGEMENT 
025210 160027 06000 28$: SUB RO, “DSTM=2 SUB 
2994 025214 160037 100000 SUB RO “DSTM=3 SUB 
2995 025220 160037 100000 SUB ; :DSTM=6 SUB 
2996 025224 160077 052552 SUB RO.a1 “DSTM=7 SUB 
025230 005037 177572 CLR MMR > TURN OFF MEMORY MANAGEMENT 


—— EE 
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CKKTBDO 11/44 MEM MGMT PRT 8B MACRO M1113 SEQUENCE 93 
TEST # 15 = ENABLE D=SPACE AND SEE I-SPACE IS NOT FORCE 
- 3008 -SBTTL TEST # 15 ~ ENABLE D-SPACE AND SEE I~SPACE IS NOT FORCED 
{SAA AAAAAAEAAAAAAAAAAAAEAEAERERAKERAEAREEERAAEARAREAAAAREARERAEAAKEEEES 
>*TEST 15 ENABLE D-SPACE AND SEE I-SPACE IS NOT FORCED 
*® 
| oe THIS TEST SHOWS THAT I-SPACE IS NOT FORCED IF THE REGISTER FIELD 
| :* IS NOT 7, BUT THE OTHER CONDITIONS ARE MET. 
j **® 
| s9 ALL ERRORS FOUND IN THIS TEST ARE REPORTED WHEN THE CPU ABORTS 
| :* THROUGH ' TO SUBROUTINE "NODSPAC'. THIS SUBROUTINE WILL 
3* REPORT THAT D=-SPACE WAS NOT ENABLED PROPERLY. 
**® 
OT ITITITIITTIITITTITT IIT IITT TIT LLLTLT LLL LLL LLL LL TTT Ti 
025234 000004 TST15: SCOPE 
3009 025236 012700 077406 MOV #77406,RO 
3010 025242 010037 172310 MOV RO, KIPDR4 :MAKE KIPDR4 R/W.4K,200 BLOCKS 
3011 025246 010037 172322 MOV RO. KDPDR1 :MAKE KDPDR1 R/W.4K.200 BLOCKS 
3012 025252 010037 172324 MOV RO. KDPDR2 “MAKE KDPDR2 R/W.4K,200 BLOCK 
3013 0 5256 010037 172326 MOV RO. KDPDR3 “MAKE KDPDR3 R/W.4K.200 BLOCKS 
3014 025262 105037 172306 CLRB = KIPDR3 “MAKE KIPDR3 NON-RESIDENT 
3015 ie TEST SOP NON-MOD; DSTM=1.2,3,5,7 
** 
3017 025266 012700 060000 50$: MOV #60000,RO :SET UP CONSTANTS FOR TEST 
3018 025272 010037 060000 MOV RO, a460000 
3019 025276 012737 2 060002 MOV #60002 ,a#60002 
3020 025 012737 060004 060004 MOV #60004 , a#60004 
3021 025312 012737 060006 MOV #60006 ,a#60006 
3022 025320 012737 025362 001110 MOV #1$,$LPERR :SET LOOP ON ERROR POINTER TO 1$ 
3023 025326 012737 060000 060000 MOV #60000 ,a#60000 
3024 025334 012737 060002 060002 MOV #60002, a#60002 
3025 025342 012737 060004 060004 MOV 60004 , a#60004 
26 025350 012737 060006 060006 MOV #60006, a#60006 
27 025356 005237 177572 INC :TURN ON MEMORY MANAGEMENT 
3028 025362 005710 1$: TST “DSTM=1 SOP NON-MOD 
3029 025364 005720 TST (RO) + :DSTM=2 SOP NON-MOD 
3030 025366 005730 TST a(RO)+ =DSTM=3 SOP NON-MOD 
3031 025370 005750 TST a-(RO) =DSTM=5 SOP NON-MOD 
3032 025372 005770 000000 IST SO ROD :DSTM=7 SOP NON-MOD 
3033 025376 005037 177572 MMR O = TURN OFF MEMORY MANAGEMENT 
30534 :* TEST SOP MOD; DSTM=1,2,3.5,7 
*?* 
2034 025402 012737 0 5414 001110 MOV #2$,SLPERR :SET LOOP ON ERROR POINTER TO 2$ 
3037 025410 005237 177572 INC MRO -TURN ON MEMORY MANAGEMENT 
3038 025414 005010 23: CLR (RO) *DSTM=1 SOP MOD 
3039 0 5416 005020 CLR (RO) + ; DSTM= SOP MOD 
0 025420 0 CLR a(RO)+ SOP MOD 
3041 025422 005050 CLR a-(RO) *DSTM=5 SOP MOD 
3042 0 3404 005070 000000 CLR a0(RO) *DSTM=7 SOP MOD 
3043 025430 005037 177572 , CLR MMRO - TURN OFF MEMOR Y MANAGEMENT 
4 jt TEST DOP DEST NON-MOD WITH SRCM=1,2.3.5.7 AND DSTM=1.2.3.5.7 
6 :* ALL SOURCE MODES TO BE TESTED ARE TESTED HERE 
°@ 
7 025434 012737 025476 001110 MOV 43s. -SLPERR :SET LOOP ON ERROR POINTER TO 3$ 
3048 025442 012702 000032 MOV #32.R :SET UP ADDRESSES 60000-60064 FOR TEST 
3049 0 012700 060000 MOV #60000,R0 
3050 025452 012701 060000 MOV #60000.R1 
3051 025456 010021 21$: MOV RO, (R15+ 
52 025460 062700 000002 ADD “RO 
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15 = ENABLE D=SPACE AND SEE I-SPACE IS NOT FORCE 
3053 025464 077204 SOB 
3054 025466 012700 060000 MOV #66600 .RO 
3055 025472 005237 177572 INC MMRO :TURN ON MEMORY MANAGEMENT 
3056 625476 021010 3$: CMP (RO), (RO) :SRCM=1 DSTM=1 DOP DEST NON-MOD 
| 57 925500 021020 CMP (RO). (RO)+ :SRCM=1 DSTM=2 DOP DEST NON-MOD 
—-- 3058 025502 021030 CMP (RO). a(RO)+ >SRCM=1 DSTM=3 DOP DEST NON-MOD 
3059 025504 021050 CMP (RO) ,a@-(RO) :SRCM=1 DSTM=5 DOP DEST NON-MOD 
3060 025506 021070 000000 CMP (RO), a@0(RO) :SRCM=1 DSTM=7 DOP DEST NON-MOD 
3061 025512 022010 CMP (RO)+, (RO) :SRCM=2 DSTM=1 DOP DEST NON-MOD 
3062 025514 022020 CMP (RO) +. (RO)+ RCM=2 DSTM=2 DOP DEST NON-MOD 
3063 025516 022030 CMP (RO)+,a(RO)+ | :SRCM=2 DSTM=3 DOP DEST NON-MOD 
3064 025520 022050 CMP (RO) +,a-(RO) :SRCM=2 DSTM=5 DOP DEST NON-MOD 
3065 025522 022070 000000 CMP (RO) +,a0(RO) :SRCM=2 DSTM=7 DOP DEST NON-MOD 
3066 029326 023010 CMP a(RO)+, (RO) :SRCM=3 DSTM=1 DOP DEST NON-MOD 
3067 025530 023020 CMP a(RO)+,(RO)+ | :SRCM=3 DSTM=2 DOP DEST NON-MOD 
3068 025532 023030 CMP a(RO)+,a(RO)+ :SRCM=3 DSTM=3 DOP DEST NON-MOD 
3069 025534 023050 CMP @(RO)+,a-(RO)  :SRCM=3 DSTM=5 DOP DEST NON-MOD 
3070 025536 023070 000000 CMP a(RO)+,a0(RO)  :SRCM=3 DSTM=7 DOP DEST NON-MOD 
3071 025942 025010 CMP a-(RO) . (RO :SRCM=5 DSTM=1 DOP DEST NON-MOD 
3072 025544 025020 CMP @-(RO),(RO)+ | :SRCM=5 DSTM=2 DOP DEST NON-MOD 
3073 025546 025030 CMP @-(RO),a(RO)+  :SRCM=5 DSTM= DEST NON-MOD 
3074 025550 025050 CMP @-(RO),a-(RO) :SRCM=5 DSTM=5 DOP DEST NON-MOD 
3075 025552 025070 000000 CMP a-(RO),@0(RO)  :SRCM=5 DST OP DEST NON-MOD 
3076 025556 027010 000000 CMP @0(RO). (RO) :SRCM=7 DSTM=1 DOP DEST NON-MOD 
3077 025562 027020 CMP (RO).(RO)+  =SRCM=7 D DEST NON-MOD 
3078 025566 027030 0 CMP @0(RO),a(RO)+ :SRCM=7 DSTM=3 DOP DEST NON-MOD 
3079 025572 027050 000000 CMP @0(RO).a-(RO)  :SRCM=7 DSTM=5 DOP DEST NON-MOD 
3080 025576 027070 000000 000000 CMP @0(RO);a0(RO)  :SRCM=7 DSTM=7 DOP DEST NON-MOD 
3081 025604 005037 177572 CLR MMRO > TURN OFF MEMORY MANAGEMENT 
3082 :* TEST DOP DEST MOD AND NOT SUB; DSTM=1,2,3.5.7 
* 
3084 025610 005000 CLR RO :SET UP CONSTANTS FOR TEST 
3085 025612 012701 060000 MOV #60000,R1 
3086 025616 012737 025630 001110 MOV #6$.$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
3087 025624 005237 177572 INC mr) = TURN ON MEMORY MANAGEMENT 
3088 025630 050011 4$: BIS RO, (R1) :DSTM=1 DOP DEST MOD 
3089 025632 050021 BIS RO. (R1)+ :DSTM=2 DOP DEST MOD 
3090 025634 050031 BIS RO.a(R1)+ :DSTM=3 DOP DEST MOD 
3091 025636 050051 BIS RO. a-(R1) :DSTM=5 DOP DEST MOD 
3092 025640 050071 000000 BIS RO. a0(R1) :DSTM=7 DOP DEST MOD 
3093 025644 005037 177572 CLR MMRO TURN OFF MEMORY RANAGEMENT 
30% ss FEST MOV DEST AND NOT(SMO AND DMO)’ DSTMSS ¢ 
** 
3096 025650 012701 060000 MOV #60000,R1 :SET UP CONSTANTS FOR TEST 
3097 025654 012737 060002 060000 MOV #60002, 
3098 025662 012737 025674 001110 MOV #5$,SLPERR :SET LOOP ON ERROR POINTER TO 5$ 
3099 025670 005237 177572 INC mer () :T ON MEMORY MANAGEMENT 
3100 025674 010031 S$: MOV RO,a(R1)+ “DSTM=3 MOV DEST 
3101 025676 010051 MOV RO. a-(R1) =DSTM=5 MOV DEST 
102 025 010071 000000 MOV RO.a0(R1) *DSTM=7 MOV DEST 
103 025704 005037 177572 CLR MMRO -TURN OFF MEMORY MANAGEMENT 
318 it TEST SWAB; DSTM=1,2,3.5.7 
*“* 
3106 025710 012701 060000 MOV #60000,R1 :SET UP CONSTANTS FOR TEST 
3107 025714 012737 025726 001110 MOV #6$,SLPERR :SET L LOOP ON ERROR POINTER TO 6$ 
3108 025722 005237 177572 INC mMRO) URN ON MEMORY MANAGEMENT 
109 025726 000311 6$: SWAB ss (R21) “DSTM=1 SWAB 
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TBDO 11/44 MEM 
T # 15 = ENABLE D 
110 0257 1 
10 are epg 
git¢ 025734 000351 
a 0257 one 71 
114 025742 005037 
3115 
B18 wosree enzo 
3118 098959 01970 
3119 025756 OI 88e 
3120 025760 01273 
3121 0 2796 4 737 
31 4 025774 012737 
3125 026002 012737 
3124 026010 Le 
3125 0 op18 005237 
3158 026022 006111 
3127 026024 006121 
3128 026026 006131 
3129 026030 006152 
3130 026032 006173 
3131 026036 005037 
a136 
313 
3134 026042 012737 
3135 026050 005003 
3136 026052 005237 
3137 026056 070310 
3138 026060 070320 
3139 026062 070330 
3140 026064 070350 
3141 asenes 070370 
3108 026072 5037 
314 
3144 
3145 026076 012737 
3146 626104 012737 
3147 026112 012700 
3148 026116 012737 
3149 0 olge B38? 
3150 0261 072310 
3151 026132 072320 
$12$ 026134 072330 
$12 C26136 072350 
154 026140 072370 
3155 026144 005037 
312 
157 
3158 026150 012737 
$123 026156 012737 
160 026164 012737 
161 026172 Att: 
16¢ 026176 005237 
163 026202 000131 
164 026204 000171 
192 026210 005037 


MGMT PRT 
~SPACE 


000000 
177572 
000001 
060000 
060000 
026130 
177572 
177572 
026202 
026204 
026210 
060000 
177572 


177572 


060000 
060002 
060004 
060006 
001110 


001110 


060000 
060002 


001110 


” *» 


7$: 


9$: 


B MACRO M1113 12-JAN-82 12:19 PAGE 54-5 
AND SEE I-SPACE IS NOT FORCED 


SWAB ss (R21) + -DSTM=2 SWAB 
SWAB 4s a(R) + :DSTM=3 SWAB 
SWAB = (R11) :DSTM=5 SWAB 
SWAB =. -@0(R1) “DSTM=7 SWAB 
L “TURN OFF MEMORY MANAGEMENT 


CLR MMRO 
TEST ROT/SHFT: DSTM=1,2.3,5,7 


MOV #60000 ,R1 ;SET UP CONSTANTS FOR TEST 
MOV #60006 ,R2 


R2,R 
MOV #60000, #60000 
MOV #60002 ,a#60002 


MOV #60004 ,a#60004 

MOV #60006 ,a@#60006 

MOV #7$,SLPERR :SET LOOP ON ERROR POINTER TO 7$ 
INC MMR) = TURN ON MEMORY MANAGEMENT 

ROL (R1) *DSTM=1 ROT/SHFT 

ROL (R1)+ “DSTM=2 ROT/SHFT 


:DSTM=5 ROT/SHFT 

sDSTM=5 ROT/SHFT 

:DSTM=7 ROT/SHFT 

CLR MMRO :T OFF MEMORY MANAGEMENT 
TEST MUL/DIV; DSTM=1,2,3,5,7 


MOV #8$ ,SLPERR :SET LOOP ON ERROR POINTER TO 8$ 
CLR R3 :SET UP CONSTANT FOR TEST 
; TURN MEMORY 


INC 0 ON MANAGEMENT 
MUL (RO), :DSTM=1 MUL/DI 
(RO) +,R3 sDSTM=2 MUL/DIV 
MUL a(RO)+,R3 :DSTM=35 MUL/DIV 
MUL a-(RO) R35 sDSTM=3 MUL/DIV 
@0(RO) ,RS ;DSTM=7 MUL/DIV 


CLR ; TURN OFF MEMORY MANAGEMENT 
TEST ASH/ASHC; DSTM=1,2,3,5,7 


MOV #1 ,a460000 ;SET UP CONSTANTS FOR THE TEST 
+d — 

MOV #9$ ,SLPERR :SET LOOP ON ERROR POINTER TO 9$ 
INC 2% MEMORY MANAGEMENT 

ASH (RO) RS :DSTM=1 ASH/ASHC 

ASH (RO) +,R3 :DSTM=2 ASH/ASHC 

ASH a(RO)+,R ;DSTM=5 ASH/ASHC 

ASH yas ds oR s;DSTM=5 ASH/ 

ASH @0(RO) ,R :DSTM=7 ASH/ASHC 

CLR MMRO sF OFF MEMORY MANAGEMENT 


TEST JMP; DSTM=3,7 
MOV Ab Base :SET LOOP ON ERROR POINTER TO 10$ 
. SE 


MOV #11$.aa =SET UP CONSTANTS FOR THE TEST 
MOV #12$.a#60002 

MOV #60000,R1 

INC MMRO :T MEMORY MANAGEMENT 

JMP a(R1)+ “DSTM=3 JMP 

JMP a0(R1) DSTM=7 


‘ JMP 
CiR MMRO ; TURN OFF MEMORY MANAGEMENT 
TEST JSR; DSTM=3,7 
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TEST # 15 = ENABLE D-SPACE AND SEE I-SPACE IS NOT FORCED 


* 
° 


| 167 
| 168 0 14 012737 026 46 001110 MOV #13S, -SLPERR :SET LOOP ON ERROR POINTER 10, 13$ 
| 16 6222 012737 026250 060000 MOV #14$.aa *SET UP CONSTANTS FOR THE TEST 
| 170 012737 026254 060002 MOV #15$. a#60002 
| 171 01 701 MOV #60000,R | 

178 624 é ? 177572 INC MMRO : TURN ON MEMORY MANAGEMENT 

173 026266 004731 13$: JSR PC, a(R1)+ “DSTM=3 JSR 

317% 026250 004771 000009 14$: JSR PC a0(R1) *DSTM=7 JSR 

175 026254 005037 177572 15$: CLR MMRO > TURN OFF MEMORY MANAGEMENT 

3176 026260 M1273? 000006 172306 MOVB #6, KIPDR3 “MAKE KIPDR3 RESIDENT 

177 026266 012706 001100 MOV #KERSTK,KSP “RESET STACK POINTER 


<r 
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TEST # “S = PROPER ENABL ING OF SUPER. D-SP 









| 3186 -SBTTL TEST # 16 ~ PROPER ENABLING OF SUPER. D-SPACE 
{EAA ARERR AEE RAEAAAAEAAAERREREEAAEAERREEERAEHE EERE EEE 
| : *TEST 16 PROPER ENABLING OF SUPER. D=-SPACE 
| ce THIS TEST CHECKS FOR PROPER ENABLING OF THE SUPERVISOR D=SPACE. 
** 
;* ANY ERRORS ENCOUNTERED WILL BE REPORTED THROUGH ‘MMVEC' TO 
| :* SUBROUTINE "NODSPAC'. 
** 
UT IIIIITI IIIT TIT TIT TITI LITT T IIIT iL iLiLitiLiLi LT LL TLL tii 
026272 1ST16: SCOPE 
3187 026¢74 105037 172222 20$: CLRB  SDPDR1 :MAKE SDPDR* NON-PESIDENT 
3188 026 012737 026326 001110 MOV #1$,S$LPERR :SET LOOP ON ERRO.’ POINTER TO 1$ 
3189 026306 012737 000022 172516 MOV #22.MMR3 :ENABLE 22-811 SUPERVISOR D-SPACE 
3190 026314 052737 04 177776 BIS #40000,PSw ; ENABLE SUPERVISOR MODE 
3191 026322 005237 177572 INC MMRO TURN ON MEMORY MANAGEMENT 
3192 :* THE NEXT INSTRUCTIONS SHOULD NEVER INVOKE D-SPACE 
* 
3194 026326 000400 is: BR 2$ 
3195 026330 005700 2$ TST RO 
3196 026332 005200 INC RO 
3197 026334 005037 177572 CLR MMRO : TURN OFF MEMORY MANAGEMENT 
3198 026340 112737 000006 172222 MOVB #6,SDPDR1 “MAKE SDPDR1 RESIDENT 
3199 026346 105037 172206 CLRB = SIPDR3 “MAKE SIPDR3 NON-RESIDENT 
520¢ :* TEST SOP INSTRUCTIONS 
*® 
3202 026352 012737 026364 001110 MOV #3$,SLPERR :SET LOOP ON ERROR POINTER TO 3$ 
3203 026360 005237 177572 INC mMRO :TURN ON MEMORY MANAGEMENT 
3204 026364 005737 060000 3S: TST a4#60000 :DSTM=3 DSTF=7 SOP NON-MOD 
3205 026370 005037 060000 CLR 3460000 *DSTM=3 DSTF=7 SOP MOD 
3206 026374 005037 177572 CLR MMR :TURN OFF MEMORY MANAGEMENT 
3207 :* TEST DOP INSTUCTIONS 
** 
3209 026400 012737 026416 001110 MOV #4$,S$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
3210 026406 012700 060000 MOV #60000,RO >SET UP CONSTANT FOR TEST 
3211 026412 005237 177572 INC MMRO :TURN ON MEMORY MANAGEMENT 
3212 026416 023710 060000 4$: CMP @460000, (RO :SRENSS DSTM=1 DOP DEST NON-MOD 
3213 026422 052730 000000 BIS #0,a(RO)+ ReneS DSTM=3 DOP DEST MOD 
3214 026426 013737 060002 060002 MO aCROSe SR DSTM3 MoV DEST 
3215 026434 005037 177572 CLR MMRO Y MANAGEMENT 
3535 :* TEST ROT/SHFT AND asusasivc UINSTRUCTIONS 
**® 
3218 026440 012737 026464 001110 MOV #5$, $LPERR :SET LOOP ON ERROR POINTER TO 5$ 
3219 026446 012737 000001 060000 MOV #1460000 “SET CONSTANT FOR TEST 
3220 026454 012700 000001 MOV #1_RO SET UP CONSTANT FOR TEST 
3221 026460 005237 177572 INC MMRO - TURN ON MEMORY MANAGEMENT 
3222 26464 006137 060000 5$: ROL a4#60000 =DSTM=3 ROT/SHFT 
3223 026470 072337 060000 ASH 2760000, R3 “DSTM=3 ASH/ASHC 
3224 026474 005037 177572 CLR = TURN OFF MEMORY MANAGEMENT 
3225 ie TEST mu DIV AND SWAB INSTRUCTIONS 
** 
3227 026500 012737 026512 001110 MOV #6$,SLPERR :SET LOOP ON ERROR POINTER TO 6$ 
3228 026506 005237 177572 INC °T MEMORY MANAGEMENT 
3229 026512 070037 060 6$: MUL a460000,R0 >DSTM=3 MUL/DIV 
3230 026516 000337 060004 SWAB  af60004 : DSTM= SWAB 
3231 026522 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 
3232 026526 042737 000002 172516 BIC #2,MMR3 “DISABLE SUPERVISOR D-SPACE 


| H 
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TEST # 16 = PROPER ENABLING OF SUPER. D-SPA 

| 
| 


3233 026534 112737 000006 172206 MOVB #6,SIPDR3 MAKE SIPDR3 RESIDENT 


| 8 
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TEST # 17 = PROPER ENABLING OF USER D-SPACE 









3242 .SBTTL TEST # 17 = PROPER ENABLING OF USER D=SPACE 
FERRARA AREER AEEEEEEEEAEEAEEREEREREREEREEREREREREEEE KEE EE 
| S*TEST 17 PROPER ENABLING OF USER D=SPACE 

°e 
ie THIS TEST CHECKS FOR PROPER ENABLING OF THE USER D-SPACE. 
** 
ot ANY ERRORS ENCOUNTERED WILL BE REPORTED THROUGH 'MMVEC' TO 
* SUBROUTINE "NODSPAC'. 
**® 
PT TIIITITI IIIT ITTITIT LITT LITILI Ti Titi LiL LiL LLL TLL LTT 
026542 000004 TST17: Sco 
43 026544 105037 177622 20$:  CLRB UDPDR1 {MAKE UDPDR1 NON-RESIDENT 
244 026550 012737 026576 001110 MOV #1$,$LPERR =SET LOOP ON ERROR POINTER TO 1$ 

3245 026556 012737 000021 172516 MOV : ENABLE 22-81 USER D-SPACE 

3246 026564 052737 140000 177776 BIS #140000,PSw “ENABLE USER MODE 

3247 026572 005237 177572 INC MMRO = TURN ON UBERORY MANAGEMENT 

3509 :* THE NEXT INSTRUCTIONS SHOULD NEVER INVOKE D-SPACE 

** 

3250 026576 000400 i$: BR 4 

3251 026600 005700 2$ TST RO 

3252 026602 005200 INC RO 

3253 026604 005037 177572 CLR MMRO : TURN OFF MEMORY MANAGEMENT 

3254 026610 112737 000006 177622 MOVB #6, UDPDR1 “MAKE UDPDR1 RESIDENT 

3255 026616 105037 177606 CLRB  —sdUIPDR3 “MAKE UIPDR3 NON-RESIDENT 

3256 :* TEST SOP INSTRUCTIONS 

*® 

3258 026622 012737 026634 001110 MOV #3$,SLPERR :$ET LOOP ON ERROR POINTER TO 3$ 

3259 026630 005237 177572 INC MMRO ON MEMORY MANAGEMENT 

3260 026634 005737 060000 ~ 3$: TST @4#60000 ‘ OSTNes DSTF=7 SOP NON-MOD 

3261 026640 005037 060000 CLR a4#60000 :DSTM=3 DSTE= 7 SOP MOD 

3262 026644 005037 177572 CLR MMRO = TURN OFF MEMORY MANAGEMENT 

3263 :* TEST DOP INSTUCTIONS 

*® 

3265 026650 012737 026666 001110 MOV #4$,SLPERR :SET LOOP ON ERROR POINTER TO 4$ 

3266 026656 012700 060000 MOV #60000,R0 :SET UP CONSTANT FOR TEST 

3267 026662 005237 177572 INC ON MEMORY MANAGEMENT 

3268 026666 023710 060000 4$: CMP a#60000, ¢ : SRCM= DSTM=1 DOP DEST NON-MOD 

3269 026672 052730 000000 BIS rests {Peat M=¢ DSTM=3 DOP DEST MOD 

3270 026676 013737 060002 060002 MOV area0Gs. a#60002 :SREM= DSTM=3 MOV DEST 

3271 026704 005037 177572 CLR MARC OFF MEMORY MANAGEMENT 

3358 ;* TEST ROT/SHFT AND ASH/ASHC INSTRUCTIONS 

**® 
3274 026710 012737 026730 001110 MOV #5$,$LPERR :SET LOOP ON ERROR POINTER TO 5$ 
75 026716 012737 1 060000 - MOV #1460000 *SET CONSTANT FOR TEST 
76 026724 005237 177572 INC MMO : TURN ON MEMORY MANAGEMENT 
77 026730 006137 060000 5$: ROL a#60000 *DSTM=3 ROT/SHFT 

3278 026734 072337 060000 ASH a#60000,R3 *DSTM= ASH/ASHC 

3279 026740 005037 177572 CLR OFF MEMORY MANAGEMENT 

380 jt TEST MUL/DIV AND SWAB INSTRUCTIONS 

a 

28 026744 012737 026762 001110 MOV 6S SLPERR :SET LOOP ON ERROR POINTER TO 6$ 

3283 026752 012700 000001 MOV RO =SET UP CONSTANT FOR TEST 

3284 026756 005237 177572 INC MMRO = TURN ON MEMORY MANAGEMENT 

3285 026762 0037 060000 6$: MUL a4#60000,R0 *DSTM=3 MUL/DIV 

32 026766 000337 060004 SWAB  af60004 : DSTM= SWAB 

3287 026772 005037 177572 CLR MMRO TURN OFF MEMORY MANAGEMENT 

3288 026776 042737 000001 172516 BIC #1,.MMR3 “DISABLE USER D-SPACE 
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EST # 17 = PROPER ENABLING OF USER D-SPACE 


$5oH BSonnS Aatnes Soepee 177606 MOVE #6, UIPDR3 :MAKE UIPDR3_ RESIDENT 
— i | CLR PSw :RESET TO KERNAL SPACE 


C 
T 
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‘extend 11/44 MEM MGMT PRT B as M1113 12-JAN-82 12:19 PAGE 77 SEQUENCE 101 
ST # 20 = TRAPPING IN D=SPACE KERNAL MODE 





3299 -SSTTL TEST # 20 ~ TRAPPING IN D=SPACE KERNAL MODE 
FERRARA AERA EAERAEREEHAKKKEKEKEKKAKER REE ee 
“STEST 20 TRAPPING IN D=SPACE KERNAL MODE 
** 
:* THIS TEST VERIFIES THAT THE ABORT VECTOR IS TAKEN FROM 
:* D-SPACE AND NOT I=SPACE. THE SPACE VECTOR | POINTS T0 
:* 10$ AND THE D-SPACE VECTOR POINTS TO 15$. PSW IN 
:* VIRTUAL 253 1S DIFFERENT SO THE PROGRAM can TELL WHICH 
:* AREA IT IS PICKED UP FROM. 
: 2 MAAABASAASSAASLALAALALAALSLALASLASLE SESE SESE SER ESE REE EEEACEReeRRReea 
027016 000004 TST20: SCOPE 
3300 027020 004737 002356 JSR PC, TOFF :TURN OF T=BIT FOR THIS TEST 
3301 027024 012737 027060 001110 20$: MOV #1$,$LPERR :SET LOOP ON ERROR POINTER TO 1$ 
3302 027032 012737 027126 000250 MOV #10$,a4MMVEC  :SET M.M. VEC. TO VECTOR 
3303 027040 005037 00025 CLR :PSwW IN 252 HAS PRIORITY OF ZERO 
3304 027044 012737 027134 000350 MOV #15$,a#350 *SET D=SPACE MM VEC 
3305 027052 012737 000340 000352 MOV #340,a#352 “SET PSW PRIORITY 
3306 027060 012706 001000 1$: MOV *1000°K KSP -SET UP KERNAL VECTOR 
3307 027064 005237 177572 INC MMR : ON MEMORY MANAGEMENT 
$856 zNOW SET UP FOR AN ABORT IN KERNAL MODE WITH D-SPACE ENABLED 
3310 027070 012737 077402 172330 MOV #77402, KDPDR4 ;:KERNAL D-SPACE PAGE 4 IS READ ONLY 
3311 027076 012737 000600 172370 MOV #600, KDPAR4 :MAP D=SPACE PAGE 4 Ao 12k 
3312 027104 052737 000004 172516 BIS *BITS. MMR3 ; ENABL LE KERNAL D-SPACE MAPPING 
3313 027112 012737 000001 172360 MOV #1,KDPARO MAP KERNAL D PAGE 0 TO 000100 
3314 027120 012737 177777 100000 MOV #-1,a#100000  :TRY TO WRITE TO PAGE 4 
3315 027126 013700 177776 10S: MOV PSwW.RO *SAVE PSW FOR COMPARE 
3316 027132 000402 BR 16$ ‘BRANCH TO D=SPACE READ CODE 
3317 027134 013700 177776 15$: MOV PSW.RO *SAVE PSW FOR COMPARE 
3318 027140 005037 172360 16$: CLR KDPARO :REMAP KERNAL D PAGE 0 TO PHYSICAL 0 
3319 027144 012706 001100 MOV #KERSTK,KSP ;RESET STACK POINTER AFTER D-SPACE ABORT 
3320 027150 042737 000004 172516 BIC #B1T2,.MMR3 :TURN OFF KERNAL D-SPACE ENABLE 
3321 027156 013701 177572 MOV MMRO,R1 =SAVE MMRO FOR COMPARE 
3322 027162 013702 177574 MOV MMR1,R :SAVE MMR1 FOR COMPARE 
323 027 013703 177576 MOV MMR2,R :SAVE MMR2 FOR COMPARE 
3324 027172 122700 000340 CMPB  =s-s«s#340,RO “DID YOU PICK CORRECT PSw 
3325 027176 001401 BEQ 2$ ‘BRANCH IF PSW IS 340 
3326 027200 104033 ERROR +33 :WRONG PSW PICKED IN ABORT SEQUENCE 
3327 027202 022701 020031 2$: CMP #020031,R1 ; EXPECTING READ ONLY ABORT 
:KERNAL MODE D-SPACE PAGE 4 
027 001401 BEQ 3$ :BRANCH IF CONDITION IS CORRECT 
3330 027210 104027 ERROR +27 :WRONG M.M. ABORT CONDITION 
3331 027212 005037 177572 3$: CLR MMRO CLEAR OFF MMRO FOR EXIT OF TEST 
3332 027216 012737 016142 000250 MOV #MGMERR,MMVEC  ;:RESTORE NORMAL M.M. TRAP VECTOR 
3333 027224 012737 000340 000252 MOV #340,MMVEC+2  :RESTORE TRAP PSW (PRIORITY=7) 
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* THIS GROUP OF TESTS WILL TEST ALL _THE LOGIC ASSOCIATED WITH 
;% THE ‘MFPI*', ‘MTPI*’ AND 'MFPD'’ INSTRUCTIONS. 
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kk TBDO 11/44 MEM MGMT PRT 8 MACRO M1113 SEQUENCE 103 
TEST # 21 = MOVE FROM PREVIOUS (SUPERVISOR) Space 
| 3359 .SBTTL TEST # 21 ~ MOVE FROM PREVIOUS (SUPERVISOR) I-SPACE 
{EAE A AAA AREER EEAREREERERERERRERREE 
<STEST 21 MOVE FROM PREVIOUS (SUPERVISOR) I-SPACE 
** 
te THIS TEST USES THE "MFPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
ie IS CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
:* MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPITS, 
8 WHICH USES THE MFPI INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
:* THE TEST. *IMPORTANT® - ALL ‘NOP'S'’ FOLLOWING MFPI'S OF MODES 
:* 4 AND 5 ARE TO BE LEFT ALONE. TH WE SUBROUTINE LOADS THE TWO WORDS 
tt AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
a IF THE CORRECT MODE (SUPERVISOR) IS NOT ENABLED A NON-RESIDENT ABORT 
:* WILL OCCUR AND TRAP TO MFPIV1, WHERE THE ERRORS ARE REPORTED. 
** 
PETIT TIIITITITILITII LITT LTT LLL ITLL LEL ELL LE LLL ELL LLL TTT 
027232 04 TST21: SCOPE | 
3360 027234 004737 002060 JSR PC APRINIT ;INIT ALL PAR/PDR'S | 
3361 027240 012737 000001 177572 MOV 4 ON MEMORY MANAGEMENT | 
3362 027246 012737 000600 172350 1S: MOV #600, KIPAR4 MAP KIPAR4 TO 12K | 
3363 027254 012737 000600 172250 MOV #600. SIPARG “MAP SIPAR4 TO 12k 
3364 027262 012700 036514 MOV #36514.R0 =LOAD DATA PATTERN INTO RO | 
3365 027266 010037 100000 MOV RO, a#100000 =LOAD DATA PATTERN INTO PHY 60000 
3366 027272 105037 172310 CLRB  KIPDR4 :MAKE KERNEL I~SPACE PAGE } NON-RESIDENT 
336 :THE FOLLOWING WILL TEST DSTM=0 MFP] 
3368 027276 012737 027304 001110 MOV #2$.SLPERR :SET LOOP ON ERROR POINTER TO 2$ 
3369 027304 012737 010340 177776 2$: MOV #010340, PSwW :MAKE PREVIOUS MODE SUPERVISOR 
3370 027312 006506 MFP] :PUT SUPERVISOR STACK POINTER ON KERNEL STACK 
3371 027314 022706 001100 CMP #KERSTK,KSP :WAS SOMETHING PUSHED ON STACK AT 6$ 
3372 027320 001407 BEQ 3$ =BRANCH IF NOTHING WAS PUSHED 
3373 027322 012600 MOV (KSP)+,RO KERNEL STACK INTO RO 
3374 027324 012701 000700 MOV #SUPSTK,R1 EXPECTING TO GET 700 AS SSP 
3375 027330 020001 CMP RO,R1 :DID YOU GET THE RIGHT POINTER? 
3376 027332 001403 BEQ 4$ ;BRANCH IF YOU DID 
027334 104023 ERROR +23 WRONG THING WAS PUSHED ON STACK 
3378 :FOR TIGHTER SCOPE LOOP, REPLACE 'BEQ 4$ WITH BR 2$"' = 000764 
3379 027336 000401 :BR ANCH O NEXT TRY 
3380 027340 104025 3$: ERROR +25 NG PUSHED ON STACK 
3381 :FOR TIGHTER SCOPE LOOP, REPLACE NBEO. 3$'" ABOVE WITH ‘BR 2$'° = 000771 
3383 :THE FOLLOWING WILL TEST DSTM=1 MFPI. 
3384 027342 012737 002516 001110 4s: MOV amr PIL LP,$LPERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 
3385 027350 012700 036514 MOV #36514 ,R0 *RELOAD DATA PATTERN IN RO 
3386 027354 012737 010340 002520 MOV nO10346, MFPIPS :MAKE PREVIOUS MODE SUPERVISOR IN SUBROUTINE 
3387 027362 012702 100000 MOV #1 LOAD VIRTUAL ADDRESS INTO R2 
3388 027366 012737 027566 002622 MOV amr PIV “MFPIVC LOAD ADDRESS OF THIS TEST'S TRAP CATCHER TO MFPIVC 
3389 027374 004737 00246 JSR MFPITS :GO DO TEST USING nEP I INSTRUCTION FOUND 
3390 027400 006512 MFP] (R Ro) ><HERE = READ FROM PHYSICAL 6 
3391 027402 000240 NOP :MODE NOT 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
3392 027404 104023 ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
3393 027406 005726 TST (SP)+ *POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3394 ;THE FOLLOWING WILL TEST DSTM=2 MFPI. 
3395 027410 012702 100000 MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3396 027414 004737 002464 JSR PC_MFPITS :60 DO TEST USING MFP] INSTRUCTION FOUND 
3397 027420 006522 MFP I (R2)+ <HERE - READ FROM PHYSICAL 60000 
3398 027422 000240 NOP NOT 3, 6 OR7 - NEEDED FOR SUBROUT INE LOAD 
3399 027424 104023 ERROR +23 “RETURN IS HERE FOR ERROR = WRONG DATA WAS FETCHED 
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SEQUENCE 


TST (SP) POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=3 MFPI. 
JSR PC .MFPITS :GO DO TEST USING MFPI INSTRUCTION FOUND 
MFP] = at : HERE ~ READ FROM PHYSICAL 60000 
ERROR +23 RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP)+ -POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
: THE FOLLOWING WILL TEST DSTM=4 MFP PI. 
MOV #100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
JSR PC .MFPITS 60 DO TEST USING MF PI INSTRUCTION FOUND 
MFP]  =(R2) ;<HERE ~ READ FROM PHYSICAL 
NOP OR 7 = NEEDED FOR SUBROUTINE LOAD 
ERROR +23 [RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP) + =POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=5 MFPI. 
001202 MOV #100000,$TMP2 ;LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 
MOV #<$TMP2+2>,R2  :LOAD ADDR. OF $TMP2+2 INTO R2 
JSR PC .MFPITS :GO DO TEST USING MFPI INSTRUCTION FOUND 
MFP]  a@=(R2) :<HERE - READ FROM PHYSICAL 
NOP :MODE NOT 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
ERROR +23 sRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP) + :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=6 MFPI. 
CLR Re :MAKE REGISTER 2 A ZERO 
JSR. :GO DO TEST USING MFPI INSTRUCTION FOUND 
MFP] 100000 (R>) :<HERE - READ FROM PHYSICAL 60000 
ERROR +23 ;RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP)+ :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=7 MFPI. 
001202 MOV #100000,$TMP2 ;:LOAD TEST LOC. V.A. INTO $TMP2 
MOV TMP2, sLOAD ADDRESS OF $TMP2 INTO R2 
JSR PC,MFPITS :60 DO TEST USING MFPI INSTRUCTION FOUND 
MFPI a0(R2) E STMpe TO FETCH VIRTUAL ADDRESS OF 60000 
ERROR +23 SUE TURN S HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP) + POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
172310 MOVB #6, KIPDR4 “MAKE KIPDR4 RESIDENT 
BR TST22 > :BRANCH TO NEXT TEST 
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MFPIV1: 





MOV 
MOV 
BIC 


MOV 
RTI 


hv MM TRAP CATCHER FOR ABOVE 


TEST 
(RSP) + TRAPPS SAVE PC @ PS OF TRAP 
SRO. WAS SAVE SR oa ERROR TYPEOUT 
” 166 BASSne >SAVE SR2 FOR ERROR TY Ae 
A ERROR BITS IN SRO AND oi SS vE 
READ NON-RESIDENT P 





ERROR TRIED TO AGE 
:FOR — sc OPE *00P, REPLACE 1ST MOV_INSTRUCTION WITH a. "RTI" = 000002 


S.-(KSP) ;PUT PC & PS OF TRAP ON STA 
TRAPP. -(KSP) 
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-~SPACE 
- SBTTL TEST # 22 - MOVE FROM PREVIOUS (USER) I-SPACE 


ADDR AAAERRASRARAASAARRERARAASASALESALEL ERE ERE ESSER ERR SER ERE E SS © 


TRTEST 22 MO’: FROM PREVIOUS (USER) I-SPACE 
* 
;* THIS TEST USES THE 'MFPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
;* IS CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
:* MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPITS, 
;* WHICH USES THE MFPI INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
:* THE TEST. SIMPORTANT® — ALL “NOP® S"* FOLLOWING MFPI'S OF MODES 1,2, 
;* 4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
:* AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
zs IF THE CORRECT MODE (USER) IS NOT ENABLED A NON-RESIDENT ABORT WILL 
;* OCCUR AND TRAP TO MFPIV2, WHERE THE ERRORS ARE REPORTED. 
* 
*: s 'MmASDRAAAASAALASALASAAALALALALASSESARSA SESE ES ES ESE SESE SEES ECE REP Ea 
TST22: SCOPE 
1$: MOV #36514.RO 


;LOAD DATA PATTERN INTO RO 
4 TO 12k 


;MAP UIPAR4 T 
MOV RO,a41 ;LOAD DATA PATTERN INTO PHY 60000 
CLRB KI :MAKE KERNEL I-SPACE PAGE 4 NON-RESIDENT 
THE FOLLOWING WILL TEST DSTM=0 MFPI 
MOV #2$,$LPERR :SET LOOP ON ERROR —— TO 2$ 


2$: MOV #036340. PS “MAKE PREVIOUS MODE 
MOV PIV2,MMVEC LOAD ADDRESS OF THIS TEST'S TRAP CATCHER TO MMVEC 
MFP] USP _ PUT USER STACK POINTER ON KERNEL STA 
MOV #MGMERR,MMVEC :SET M.M. VECTOR TO NORMAL ROUTINE 
CMP #KERSTK=2,KSP :WAS SOMETHING PUSHED ON STACK BY THE MFPI? 
BNE 3$ :BRANCH TO ERROR IF POINTER IS WRONG 
MOV (KSP)+,RO -POP KERNEL STACK INTO RO 
MOV #USESTK,R1 -EXPECTING TO GET 600 AS USP 
CMP RO,R1 =DID YOU GET THE RIGHT POINTER? 
BEQ 4$ “BRANCH IF D 


YOU DI 

ERROR +23 WRONG THING WAS PUSHED ON STACK 
;FOR TIGHTER SCOPE LOOP, REPLACE” BEQ 4s WITH ‘BR 2$°° = 000764 

4$ H TO NEXT TRY 
3$: ERROR +25 "NOT HING PUSHED ON STACK 
7FOR TIGHTER SCOPE LOOP, REPLACE 'BNE 3$°' ABOVE WITH ‘BR 2$°° = 000771 
: THE FOLLOWING WILL TEST DSTM=1 MFPI. 

4S: MOV aM PILP. ,$LPERR :SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 

MOV #030340,MFPIPS MAKE PREVIOUS MODE USER iN SUBROUTINE LOCATION 
#36514.R0 RELOAD DATA PATTERN IN 
MOV #MFEPIV2.MFPIVC LOAD ADDRESS OF THIS MEST" S TRAP CATCHER TO MFPIVC 

#100000. R2 L NTO R 


MOV :LOAD VIRTUAL ADDRESS INTO R2 

JSR PC MFPITS =GO DO TEST USING MFPI INSTRUCTION FOUND 

MFP] (R2) = <HERE - READ FROM PHYSICAL 60000 

NOP :MODE NOT 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 

ERROR +23 :RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 

TST (SP)+ -POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
;THE FOLLOWING WILL TEST DSTM=2 MFPI. 

MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 

JSR PC _MFPITS -GO DO TEST USING MFPI INSTRUCTION FOUND 

MFP] (R2)+ ><HERE - READ FROM PHYSICAL 60000 

NOP :MODE NOT OR - NEEDED FOR SUBROUTINE LOAD 

ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 


TST (SP) + ;POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
: THE FOLLOWING WILL TEST DSTM=3 MFPI. 
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I-SPACE 


TST (SP) + 
; THE i. on th TEST DSTM=5 MFPI. 


TST (SP) + 
; THE FOLLOWING WILL TEST DSTM=6 
CLR R2 


TST (SP)+ 
THE FOLLOWING WILL TEST DSTM=7 MFPI 
MOV #100000 ,$TMP2 


SEQUENCE 


JSR PC .MFPITS :GOQ DO TEST USING MFPI INSTRUCTION FOUND 
APL a4 {00000 -<HERE = READ FROM PHYSICAL 60000 
+ 


; <HERE 
RETURN IS EHRE FOR OR - WRONG DATA WAS FETCHED 


ERR 
TST (SP) + “POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=4 MFPI. 
MOV #100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
JSR PC .MFPITS :GO DO TEST USING MFP] INSTRUCTION FOUND 
MFP] -(R2) :<HERE = READ FROM PHYSICAL 60000 
: 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 


NOP MODE NOT 5, 6 OR L 
ERROR +23 sRETURN IS HERE FOR ERROR = WRONG DATA WAS FETCHED 
ieee EXCESS RETURN OFF STACK = LOOPING NOT DONE 


100000,$TMP2 ;LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 
MP R ;LOAD ADDR. OF STMP2+2 INTO R2 

:GO DO TEST USING MFPI INSTRUCTION FOUND 

;<HERE ~ READ FROM PHYSICAL 60000 

sMODE NOT 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 

sRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 

a EXCESS RETURN OFF STACK - LOOPING NOT DONE 


MAKE REGISTER 2 A ZERO 


NOP 
ERROR +23 


= 


JSR PC .MFPITS :GO DO TEST USING MFPI INSTRUCTION FOUND 
MFPI  100000(R2) *<HERE - READ FROM PHYSICAL 60000 
ERROR +23 :RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 


sPOP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


sLOAD TEST LOC. V.A. INTO STMP2 
MOV #STMP2 ,R2 ;LOAD ADDRESS OF STMP2 INTO R2 
JSR PC .MFPITS :GO DO TEST USING MFPI INSTRUCTION FOUND 
MFP I a0(R2) sUSE STMP2 TO FETCH VIRTUAL ADDRESS OF 600006 
ERROR +23 sRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP) + :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
MOVB #6,KIPDR4 7MAKE KIPDR4 RESIDENT 
BR 23 ; sBRANCH TO NEXT TEST 
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-SBTTL MM TRAP CATCHER FOR PREVIOUS TEST 


: MOV (KSP)+,TRAPPC ;:SAVE PC & PS OF TRAP 
MOV (KSP) + “ TRAPPS 

MOV SRO. ,WASSRO :SAVE SRO FOR ERROR TYPEOUT 

MOV SR2,WASSR2 7SAVE SR2 FOR ERROR TYPEOUT 

BIC #160000, SRO : CLEAR ERROR BITS IN SR AND LEAV 


ERROR +26 TRIED EAD NON-RESIDENT 
;FOR — SCOPE LOOP, REPLACE 1ST MOV INSTRUCTION WITH AN "RTI" = 


TRAPPS,-(KSP) ;PUT PC & PS OF TRAP ON STACK 
art TRAPPC ,~(KSP) 
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3563 -SBTTL TEST # 23 ~ MOVE TO PREVIOUS (SUPERVISOR) I-SPACE 
{RARER AEE EEE RAEEEAEAEREREEEAEREEKEKERARAREE ES 
“*TEST 23 MOVE TO PREVIOUS (SUPERVISOR) I-SPACE 
;* 
ot THIS TEST USES THE 'MTPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
:* IS CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
oe MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPITS, 
8 WHICH USES THE MTPI INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
:* THE TEST. *IMPORTANT® - ALL ‘NOP'S'’ FOLLOWING MTPI'S OF MODES 1.2. 
* 4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
:* AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
*¢* 
ie IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
oe TRAP TO MTPIV1, WHERE THE ERRORS ARE REPORTED. 
** 
PI TIITIIITIIITITITIIITI TT LILILI LILI Ti LLL LLL LiL LLL TTT 
030232 4 1S123: SCOPE | 
3564 030234 012737 077406 172210 18: MOV #77406,SIPDR4 | ;SUPERVISOR I-SPACE PAGE 4 READ/WRITE 
3565 -THE FOLLOWING WILL TEST DSTM=0 MTPI | 
3566 030242 (12737 010340 177776 3s: MOV #010340,PSw :MAKE PREVIOUS MODE SUPERVISOR | 
3567 030250 012746 007777 MOV #7777,~-(KSP) | =PUSH DATA ON KERNEL STACK | 
3568 030254 012737 030614 000250 MOV #MTPIV1,.MMVEC :LOAD ADDRESS OF THIS TEST*S TRAP CATCHER TO MMVEC 
3569 030262 006606 MIP] SSP :LOAD SUPERVISOR STACK POINTER 
3570 030264 006506 MFP] = SSP sREAD SUPERVISOR STACK POINTER 
3571 030266 012737 016142 000250 MOV RR,MMVEC :SET M.M. VECTOR TO NORMAL ROUTI 
3572 030274 012601 MOV (KSP)+,R1 [POP KERNEL STACK INTO R1 
3573 030276 022701 007777 CMP #7777. R1 WAS SUPERVISOR STACK POINTER CHANGED 
3574 030302 001401 BEQ :BRANCH IF IT WAS 
3575 030304 104025 ERROR +25 : SUPERVISOR STACK POINTER NOT CHANGED | 
3576 -FOR TIGHTER SCOPE LOOP, REPLACE ‘BEQ 3$'' WITH ‘BR 2$"° = 000765 
3577 030306 012737 010340 177776 %$: MOV #010340.PSw ZMAKE PREVIOUS MODE SUPERVISOR | 
3578 030314 012746 000700 MOV #SUPSTK,~(KSP) ;GET READY TO RESTORE SUPERVISOR S. POINT | 
3579 030320 012737 030614 000250 MOV 1V1,MMVEC ;LOAD ADDRESS OF THIS TEST'S TRAP CATCHER TO MMVEC 
3580 030326 006606 MTP] RESTORE SUPERVISOR STACK POINTER 
3581 030330 012737 016142 000250 MOV WMGMERR,MMVEC :SET M.M. VECTOR TO NORMAL ROUTINE 
3582 030336 4$: -THIS WILL TEST DSTM = 1 MTPI. 
3583 030336 012737 002654 001110 MOV #MIPILP,S$LPERR ;:SET LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
3584 030344 012737 010340 002656 MOV #010340,MTPIPM =MAKE PREVIOUS MODE SUPER IN LOCATION IN SUBROUTINE 
3585 030352 012702 100000 MOV #100000,R =LOAD VIRTUAL ADDRESS INTO R2 
3586 030356 012700 125252 MOV #125252.R =LOAD TEST DATA INTO R 
3587 030362 004737 002626 JSR PC _MTPITS :GO DO THE TEST USING THE MTP1 INSTRUCTION FOUND 
3588 030366 006612 MTIPI (R2) ><HERE - LOAD TEST DATA INTO PHYSICAL 
3589 030370 000240 NOP “NOT MODE OR 7 - NEEDED FOR SUBROUTINE L 
3590 030372 000000 .WORD 0 “ADD 0 TO R2 AFTER MTP] INSTRUCTION EXECUTE 
3591 030374 104024 ERROR +24 ‘RETURN IS HERE FOR ERROR - INCORRECT STORE 
3598 030376 005726 TST (SP) *POP EXCESS RETURN OFF STACK ~ LOOPING NOT D 
359 : THE FOLLOWING WiLL L Test p DSTM=2 MTPI. 
3594 030400 012700 125252 MOV :LOAD TEST DATA INTO RO 
3595 030404 012702 100000 MOV #100000" =LOAD VIRTUAL ADDRESS INTO of 
3596 030410 004737 002626 JSR PC .MTPITS ;60 DO THE TEST USING THE M TPA INSTRUCTION FOUND 
359 030414 006622 MTP] (R2)+ <HERE | - = LOAD TEST DATA INTO PHYSICAL 60000 
3598 030416 000240 NOP :NOT AQ E 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
3599 030420 177776 .WORD <2 D -2 TO AZ AFTER ATPL INSTRUCTION EXECUTE 
3600 030422 104024 ERROR +24 RETURN IS HERE FOR ERROR - INCORRECT STORE 
3601 030424 005726 TST (SP)+ “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE | 
3602 :THIS WILL TEST DSTM = 3 MTPI. 
3603 030426 012700 052525 MOV #52525.R0 :LOAD TEST DATA INTO RO | 
| 
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MACRO M1113 
TO PR eVious (SUPERVISOR) 


001202 


001202 





al 12:19 PAGE 3-1 


TST (SP) + 
sTHIS WILL TEST hl = 4 MTPI. 
MOV 


TST (SP) 
:THE FOLLOWING WILL TEST DSTM=5 
MOV #52525,R0 
stm R2 


TST (SP)+ 
; THE FOLLOWING WILL TEST DSTM=7 
MOV #1 


(KSP) +, TRAPPC 
(KSP) -— 


SEQUENCE 110 


:GO DO THE TEST USING THE MTPI Lateicar 4 ON FOUND 


:<HERE - LOAD TEST DATA INTO PH 


YS 
sADD 0 TO R2 we MTPI INSTRUCTION EXECUTE 


;RETURN IS HERE FOR ERROR - INCORRECT STORE 


:POP EXCESS RETURN OFF STACK = LOOPING NOT 
+ LOAD ies DATA INTO RO 


OAD VIRTUAL S INTO R2 
:60 DO THE TEST USING THE MTPI INSTRUCTION FOUND 
<HERE - aoe vor INTO con hae 60000 


:NO MODE SUBROUTINE L 
“ADD 0 TO Re ATER MIPI INSTRUCTION EXECUTE 
sRETURN IS HERE FOR ERROR - INCORRECT STORE 
;POP EXCESS” RETURN OFF STACK = LOOPING NOT 


;LOAD TEST DATA INTO RO 

:LOAD ADDR. OF LOC. $TMP2+2 INTO R2 

;LOAD VIRT. ADDR. OF TEST LOC. INTO STMP2 

> DO THE TEST USING THE MTPI INSTRUCTION FOUND 
;SHERE - LOAD TEST DATA INTO seek bees 60000 

7 =~ NEEDED FOR 


;NOT 43 3, 6 OK SUBROUTINE LOAD 
:ADD 100000-$TMP2 TO es hn MTPI INSTRUCTION EXECUTE 
sRETURN IS HERE FOR ERR INCORRECT STORE 

:POP EXCESS RETURN OFF STACK ~- LOOPING NOT DONE 


sLOAD TEST DATA_INTO RO 
sMAKE REGISTER 2 ZERO 
60 DO THE TEST USING THE MTPI INSTRUCTION FOUND 
i ~ LOAD TEST DATA INTO PHYSICAL 
D 100000 TO | AFTER MTPI INSTRUCTION EXECUTE 
‘RETURN IS HERE FOR ERROR - INCORRECT STORE 
; POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


LOAD TEST DATA INTO RO 
;LOAD VIRT. ADDR. OF TEST LOCATION INTO LOCATION STMP2 
;LOAD ADDRESS OF $TMP2 INTO R2 
: GO DO THE TEST USING THE MTPI INSTRUCTION FOUND 
<HERE - LOAD TEST DATA INTO PHYSICAL 60000 
“ADD orn one E TO R2 AFTER MTPI INSTRUCTION EXECUTE 
sRETURN IS HERE FOR ERROR - INCORRECT STORE 
;POP EXCESS RETURN OFF STACK - LOOPING NOT 
; BRANCH TO NEXT TEST 


;SAVE PC & PS OF TRAP 
+ SAVE SRO FOR ERROR Hie $a 


ERROR yi : TRIED TO LOAD A PAGE 4 
;FOR TIGHTER SCOPE LOOP, REPLACE 1ST ad INSTRUCTION WITH AN “RTI** = 000002 
MOV TRAPP OC” (KSP) ;PUT 


C & PS OF TRAP ON STACK 
sRETURN TO TEST 


ee 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 84 SEQUENCE 111 
TEST # 24 = MOVE TO PREVIOUS (USER) I-SPACE 


3657 .SBTTL TEST # 24 ~ MOVE TO PREVIOUS (USER) I-SPACE 
FRA AAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAEEARAEEEAREKRERAKAERREREEA EERE 
S*TEST 246 MOVE TO PREVIOUS (USER) I-SPACE 
+e 
:* THIS TEST USES THE ATPL INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
it IS CLOCKED CORRECTLY. THERE IS A DESCRIPTION BEFORE EACH DESTINATION 
:* MODE TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPITS 
:* WHICH USES THE MTP] INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
* THE TEST. *IMPORTANT® = ALL ‘NOP'S’’ FOLLOWING MTPI'S OF MODES 1.2. 
:* 4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
| tt AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
| it IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
oi TRAP TO MTPIV1, WHERE THE ERRORS ARE REPORTED. 
a 
TITTITIITITTIITTI TIT TIT TILITILLITLi LiL LLL LLL LLL TTT TTT 
030662 000004 TST24: SCOPE 
3658 030664 012737 077406 177610 1$: MOV #77406.UIPDR4 ;:USER I-SPACE PAGE 4 READ/WRITE 
3659 030672 012737 000600 177650 MOV #600, UIPAR *MAP USER I PAGE 4 TO 12k 
3660 -THE FOLLOWING WILL TE fest DSTM=0 MTPI 
3661 030700 012737 030340 177776 23s: MOV PSwW :MAKE PREVIOUS MODE USER 
3662 030706 012746 007777 MOV "70? eee :PUSH DATA ON KERNEL STACK 
3663 030712 012737 031260 000250 MOV WMTPIV2,MMVEC :SET M.M. VECTOR TO 20$ 
3664 030720 006606 MTP] —_—USP “LOAD USER STACK POINTER 
3665 030722 006506 MFP] USP “READ USER STACK POINTER 
3666 030724 012737 014142 000250 MOV WMGMERR,MMVEC :RESTORE MM VECTOR TO NORMAL ROUTINE 
3667 030732 012601 MOV (KSP)+,R1 :POP KERNEL STACK INTO R1 
3668 030734 022701 007777 CMP #7777,R1 “WAS USER STACK POINTER CHANGED 
3669 030740 001401 BEQ 3$ BRANCH IF IT WAS 
3670 030742 104025 ERROR +25 = USER STACK POINTER NOT CHANGED 
3671 -FOR TIGHTER SCOPE LOOP, REPLACE yore 3s "BR 2$'° = 000765 
%672 030744 012737 030340 177776 %$: MOV #030340,PSW evious MODE USER 
3673 030752 012746 000600 MOV #USESTK ,-(KSP) CET READY TO RESTORE USER S. POINT 
3674 030756 012737 031260 000250 MOV #MTPIV2,MMVEC :SET M.M. VECTOR TO 20$ 
3675 030764 MTP] _— USP ;RESTORE USER STACK POINTER 
3676 030766 012737 016142 000250 MOV #MGMERR.MMVEC :RESTORE MM VECTOR TO NORMAL ROUTINE 
3677 :THIS WILL TEST DSTM = 1 MTPI. 
3678 030774 012737 002654 001110 MOV WMIPILP,SLPERR ;:SET LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
3679 031002 012737 030340 002656 MOV #030340, MTPIPM “SET PREVIOUS MODE = USER IN SUBROUTINE LOCATION 
3680 031010 012737 031260 002744 MOV #MTPIV2.MTPIVC ;SET THIS TEST'S MM TRAP HANDLER IN MTPIVC 
3681 031016 012702 100000 MOV #100000. Re -LOAD VIRTUAL ADDRESS INTO R2 
031022 012700 125252 MOV #12 TOAD TEST DATA INTO RO 
3088 031026 004737 002626 JSR PC atpits :GO DO TEST USING MTP] INSTRUCTION LOCATED 
3084 0310 006612 MTP] (R2) ><HERE - LOAD TEST DATA INTO PHYSICAL 60000 
5 031034 000240 NOP =NOT - 
3686 031036 000000 .WORD 0 “ADD 0 TO R2 ATER MTP] INSTRUCTION EXECUTE 
3687 031040 104024 ERROR +24 “RETURN IS HERE FOR ERROR - INCORRECT STORE 
3688 031042 005726 TST (SP) “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3689 : THE FOLLOWING wil <HEst DSTM=2 MTP 
3690 031044 012700 125252 MOV 252 .RO :LOAD TEST DATA INTO RO 
3697 031050 012702 100000 MOV 000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3698 031054 004737 002626 JSR 41 MIPITS :G0_DO TEST USING MTPI INSTRUCTION LOCATED 
93 031060 006622 MIP] (R2)+ <HERE = LOAD TEST DATA INTO PHYSICAL 60000 
394 031062 000 40 NOP NOT MODE OR 7 - NEEDED FOR SUBROUTINE LOAD 
3695 031064 177776 .WORD <2 “ADD -2 TO R2 AFTER MIP] INSTRUCTION EXECUTE 
3696 0 1066 104024 ERROR +24 ‘RE TUR IS HERE FOR ERROR - INCORRECT STORE 
97 031070 005726 (SP)+ “POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
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24 - MOVE TO PREVIOUS (USER 


ooo Ss S 
—d aed od 
EVLL BESS 
theta ed MNISO &HLWO 
os 


~ 
Aon 


wr 


cEaeee 


VIN Ww 
™~ 
S 


R 


api S GEER § 
NSS Nesscs 
OfOornwn 


eo =eesss 
— as a or 
Glin RROUUNROAD 

~~ OS N 

=~ WWWW 

an N 


052525 
002626 
100000 


001202 


001202 


ee ok. +t 12-JAN~82 12:19 PAGE +s 1 


:THIS WILL TEST DSTM = 
MOV #525 


SEQUENCE 112 


3 MTP] 


25 RO :LOAD TEST DATA INTO RO 
JSR PC _MTPITS :GO DO TEST USING MTP] INSTRUCTION LOCATED 
MTP] a#100000 ; <HERE - LOAD TEST DATA INTO PHYSICAL 60000 
.WORD 0 :ADD 0 TO R2 ATER MTP] INSTRUCTION EXECUTE 
ERROR +24 >RETURN IS HERE FOR ERROR - INCORRECT STORE 
T P)+ :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
THIS WILL TEST DSTM = 4 MTPI 

25252,R0 :LOAD TEST DATA INTO RO 
MOV #100002.R2 :LOAD VIRTUAL ADDRESS INTO R2 
JSR PC MTPITS :GO DO TEST USING MTP] INSTRUCTION LOCATED 
MTP]  =(R2) :<HERE = LOAD TEST DATA INTO PHYSICAL 60000 
NOP -NOT MOD 7 - OUTINE LOAD 


-WORD 0 

ERROR oes, : E FOR ER 
TST (SP) :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 

>THE FOLLOWING WILL TEST DSTM=5 MTPI. 

MOV #52 RO ;LOAD TEST DATA INTO RO 


:LOAD ADDR. OF LOC. $TMP2+2 INTO R2 
MOV #100000 es :LOAD VIRT. ADDR. OF TEST oc. INTO $TMP2 


JSR PC .MIPIT :GO DO TEST USING MTPI INSTRUCTION LOCATED 
MTP] a-(R2) :<HERE = LOAD TEST DATA INTO PHYSICAL 60000 
NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
.WORD 100000-$TMP2 ;ADD 100000-$TMP2 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
ERROR +24 "RETURN IS HERE FOR ERROR - INCORRECT STORE 
TST (SP)+ :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THIS WILL TEST DSTM = 6 MTPI. 
MOV #52525.R0 


;LOAD TEST DATA _INTO RO 
CLR R2 :MAKE REGISTER 2 ZERO 


JSR PC _MTPITS =GO DO TEST USING MTPI INSTRUCTION LOCATED 
MTP 190000 (Re) ><HERE - LOAD TEST DATA INTO PHYSI 
. WORD :ADD 100000 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
ERROR 124 *RETURN IS HE ROR - INCORR 


: RE FOR ER 

TST (SP) :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 

; THE FOLLOWING WILL TEST DSTM=7 MTPI. 
MOV #12 ; LOAD viet. DATA_INTO RO 


MOV #100000.$TMP2  :LOAD V ADDR. OF TEST LOCATION 
> INTO LOCATION $TMP2 
MOV #STMP2,R2 “LOAD ADDRESS OF $TMP2 INTO R2 
JSR PC .MIPITS =GO DO TEST USING MTPI INSTRUCTION LOCATED 
MTP] a0 (R2) :<HERE LOAD TEST DATA INTO PHYSICAL 60000 
.WORD 100000-$TMP2 :AD 100000-$ TMP MP2 TO Re AFTER MIPI INSTRUCTION EXECUTE 
ERROR +24 RETURN IS HERE FOR ERROR - INCORRECT STORE 
TST (SP)+ >POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
TST25 > BRANCH TO NEXT TEST 
MTPIV2: MOV (KSP)+,TRAPPC :SAVE PC & PS OF TRAP 
MOV (KSP) +. TRAPPS 
MOV SRO, WASSRO :SAVE SRO FOR ERROR TYPEOUT 
MOV WASSR2 :SAVE SR2 FOR ERROR TYPEOUT 
BIC 7160000, SRO : CLEAR ERROR BITS IN SR 


ERROR TRIED TOL R. PAGES | 

;FOR TIGHTER score LOOP, — hen ad INSTRUCTION WITH AN ‘'RTI** = 000002 
MOV TRAPPS , = (KSP) C & PS OF TRAP ON STACK 

MOV TRAPPC ,~(KSP) 


RTI sRETURN TO TEST 


see — _ 
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12-JAN-82 12:19 PAGE 85 SEQUENCE 


- SBTTL TEST # 25 - MFPI (KERNEL) TO SUPERVISOR MODE 


SAAR AAAE EEA AEE AAAEEEEREEERERRKKKKKKREAEEE EE 


SSTEST 25 MFP] (KERNEL) TO SUPERVISOR MODE 

*® 

:* THIS TEST CHECKS THAT IF THE PREVIOUS MODE IS KERNEL THE FETCH IS FROM 
it KERNEL SPACE. THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE 

:* TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFP] 

:* WHICH USES THE MFPI INSTRUCTION CODE FOLLOWING THE JSR CALL fO EXECUTE 
:* THE TEST. *] ¥ L "'NOP'S’ FOLLOWING MFPI'S OF 1,2, 

:* 4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 

8 AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 

a 

:* IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
i TRAP TO MFPIV3, WHERE THE ERRORS ARE REPORTED. 

-* 
UTITITIITITTIIITITIT LITT TLLILL LIL LLL LLL L ELE LLL LLL LTT 

TST25: SCOPE 


MOV #1$,$LPERR :SET LOOP ON ERROR TO 1$ 
MOV #040340, PSWw :GO TO SUPERVISOR MODE FOR THIS TEST 
MO #36514,R0 ‘LOAD DATA PATTERN INTO R 
MOV RO 44160000 “LOAD DATA PATTERN INTO PHY 60000 
MOV #100000,R2 =LOAD VIRTUAL ADDRESS INTO R2 
:THE FOLLOWING WILL TEST DSTM=0 MFPI 
CLRB © SIPDR4 :MAKE SUPERVISOR I-SPACE PAGE 4 NON-RESIDENT 


1$: MOV #040340,PSW ;MAKE PREVIOUS MODE KERNEL PRESENT SUPERVISOR 
MOV WMFPIVS,MMVEC ;SET M.M. VECTOR TO MFPIV3 
1 Nhe KSP :PUT KERNEL STACK POINTER ON at al STACK 


MO #MGMERR .MMVEC ;RESTORE MM VECTOR TO NORMAL R 

CMP #SUPSTK,SSP sWAS SOME PUSHED ON STACK AT THE MFPI 
BEQ 6s :BRANCH TO ERROR IF NOTH + al WAS PUSHED 
MOV (SSP) +,RO :POP SUPERVISOR STACK INTO R 

MOV A#KERSTK,R1 zsEXPECTING 1100 AS KSP 

CMP RO,R1 :DID YOU THE "RIGHT POINTER? 


BEQ 3$ [BRANCH YOU DI 
ERROR +23 7 WRONG THING WAS PUSHED _ON STACK 
;FOR TIGHTER scOrt LOOP, REPLACE {BRANCH TO. NEX "BR 1$°' = 000756 


; NEXT TRY 
PUSHED ON STA 


2$: ERROR +25 sNOTHING 
:FOR TIGHTER SCOPE LOOP REPLACE BEG 2$"* ABOVE WITH “BR 1$** = 000762 


“THE FOLLOWING WILL TEST 


PI 
5s: MOV #MFPILP,SLPERR ;:SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 
MOV #040340,MFPIPS : PREVIOUS MODE KERNEL PRESENT SUPERVISOR 
MOV #MFPIVS,MFPIVC :MOVE THIS TEST'S MM TRAP VECTOR TO MFPIVC 
MOV #36514,R0 : DATA EXPECTED INTO RO 
MOV #100000 ,R2 :LOAD VIRTUAL ADDRESS INTO R2 
JSR PC MFPITS : 60 DO TEST USING EPI INSTRUCTION LOCATED 
MFP] (R2) <HERE - READ FROM PHYSICAL 60000 
NOP “NO MODE 7 = NEEDED FOR SUBROUTINE LOAD 
ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP)+ =POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSM=2 MFP 
MOV #100000 R2 sLOAD VIRTUAL ADDRESS INTO R2 
JSR PITS ;60 DO TEST USING MFP] INSTRUCTION LOCATED 
MFP (Re =<HERE - READ FROM PHYSICAL 60000 
NOP T MODE 3, 6 OR7 - NEEDED FOR SUBROUT INE LOAD 
ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP)+ “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


113 
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Sex Fees 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 85-1 SEQUENCE 114 
| # 25 ~ MFP] (KERNEL) TO SUPERVISOR MODE 


3510 1524 737 464 _ — i eo "60 6 DO TEST USING MFPI INSTRUCTION LOCATED 
11 8 15 Nireee 985000 MFP] 94 00000 ><HERE - READ FROM PHYSICAL 6 
3812 0315 104085 ERROR sRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
381 0315 5726 TST (SP P)+ >POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
14 :THE FOLLOWING WILL TEST DSTM=4 MFPI. 
3815 031540 012702 100002 MOV #100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3816 031544 004737 002464 JSR PC MFPITS :GO DO TEST USING MFPI INSTRUCTION LOCATED 
170 1350 006542 MFPI -(R2) :<HERE = READ FROM PHYSICAL 
3818 03155 40 NOP “NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
19 031554 104023 ERROR +23, “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
0 031556 005726 TST (SP) >POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
1 :THE FOLLOWING WILL TEST DSTM=5 MFPI. 
2 031560 012737 100000 001202 MOV #100000,$TMP2  :LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 
0 1366 012702 001204 MOV #<S$TMP2+2>,R2  :LOAD ADDRESS OF $TMP2+2 INTO 
4 031572 004737 002464 JSR PC .MFPITS *GO DO TEST USING MFPI INSTRUCTION LOCATED 
5 031576 006552 MFPI  a@=(R2) ><HERE - READ FROM PHYSICAL 
3826 031600 000240 NOP :NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
3827 031602 104023 ERROR +23 [RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
8 031604 005726 TST (SP) + :POP EXCESS RETURN OFF STACK ~- LOOPING NOT DONE 
3829 :THE FOLLOWING WILL TEST DSTM=6 MFPI. 
3830 031606 005002 CLR R2 sMAKE REGISTER 2 A ZERO 
3831 031610 004737 002464 JSR PC MFPITS :GO DO TEST USING MFP] INSTRUCTION LOCATED 
3832 031614 006562 100000 MFPI  100000(R2) :<HERE - READ FROM PHYSICAL 60000 
383 031620 10402 ERROR +23 [RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
3834 031622 005726 TST (SP) + :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3835 :THE FOLLOWING WILL TEST DSTM=7 MFPI. 
3836 031624 012737 100000 001202 MOV #100000,$TMP2 ;LOAD TEST LOC. VIRT. ADDR. INTO $TMP2 
3837 031632 012702 001202 MOV #STMP2 ,R2 “LOAD ADDRESS OF $TMP2 INTO R2 
38 031636 004737 002464 JSR PC .MFPITS :GO DO TEST USING MFP] INSTRUCTION LOCATED 
3839 031642 00657¢ 000000 MFPI a@0(R2) :<HERE - READ F ROM PHYSICAL 60000 
3840 031646 1040 ERROR +23 “WRONG DATA WAS FETCHED 
3841 031650 005726 TST (SP)+ :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
‘ 031652 012737 000340 177776 MOV #00340,PSw :GO BACK TO KERNEL MODE . PREVIOUS KERNEL 
3843 031660 112737 000006 172210 MOVB #6,SIPDR4 “MAKE SIPDR4 RESIDENT 
3844 031666 012706 001100 MOV #KERSTK, KSP ;RESET KERNEL STACK POINTER 
3845 031672 000423 BR * ;BRANCH TO NEXT TEXT 
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.SBTTL MM TRAP ROUTINE FOR ABOVE TEST 
MFPIV3: 4 (KSP)+,TRAPPC ;SAVE PC & PS OF TRAP 


(KSP) +, TRAPPS 
001 1264 MOV SRO,WASSRO :SAVE SRO FOR ERROR TYPEOUT 
00127 0 MOV SR2.WASSR2 :SAVE SR2 FOR ERROR TYPEOUT 
177 B] #160000, :CLEAR ERROR BITS IN SRO 

+ : TRIED TO READ NON-RESIDENT PAGE 


ERROR ED T 

;FOR TIGHTER SCOPE LOOP, REPLACE 1ST Ms od INSTRUCITON WITH AN “'RTI"* = 000002 
MOV TRAPPS,-(KSP)  ;PUT PC & PS OF TRAP ON STACK 

MOV TRAPPC ,=(KSP) 


RTI sRETURN TO TEST 


ym 9 
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TEST # 26 - MFPI (KERNEL) TO USER MODE 


3858 -SBTTL TEST # 26 ~ MFPI (KERNEL) TO USER MODE 
FEAR AERA AAA AAAA AEA AAAAAAAAERAEEEREREEEEKKKKKKEEREKR RHEE 
**TEST 26 MFP] (KERNEL) TO USER MODE 
oe 
+ THIS TEST CHECKS THAT IF THE PREVIOUS MODE IS KERNEL THE FETCH IS FROM 
:* KERNEL SPACE. THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE 
ot TESTED. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPITS, 
:* WHICH USES THE MFPI INSTRUCTION CODE, FOLLOWING THE JSR CALL TO EXECUTE 
* THE TEST. *IMPORTANT* ~ ALL “NOP'S" FOLLOWING MFPI'S OF MODES 1.2, 
:* 4 AND 5 ARE TO BE '.cFT ALONE. TH “, SUBROUTINE LOADS THE TWO WORDS 
* AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
:* IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT WILL OCCUR AND 
te TRAP TO MFPIV4, WHERE THE ERRORS ARE REPORTED. 
** 
Fi iah-lelalededpbotalsialaelelehelebelababababeboboieehaiabebeieleieioiciaiaisioioieisisiiaiaieieieieisisiaiabioteits 
031742 000004 TST SCOPE 
3859 031744 012737 031752 001110 MOV #1$,$LPERR :SET LOOP ON ERROR TO 1$ 
3860 031752 012737 140340 177776 1S: MOV #140340, PSw -GO TO USER MODE FOR THIS TEST 
3861 031760 012700 036514 MOV #36514,R0 “LOAD DATA PATTERN INTO RO 
3862 031764 010037 100000 60 “LOAD DATA PATTERN INTO PHY 60000 
3863 031770 012702 100000 MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3864 :THE FOLLOWING WILL TEST DSTM=0 MFP] 
3865 031774 012737 032304 000250 MOV WMFPIVG .MMVEC ;:SET M.M. VECTOR TO MFPIV4 
3866 032002 105037 177610 CLRB  —UIPDR4 :MAKE USER I-SPACE PAGE 4 NON-RESIDENT 
3867 032006 012737 140340 177776 MOV #140340.PSW ;MAKE PREVIOUS MODE KERNEL PRESENT USER 
3868 032014 006506 MFP] ‘KSP :PUT KERNEL STACK POINTER ON USER STACK 
3869 032016 012737 016142 000250 MOV #MGMERR,MMVEC :RESTORE MM VECTOR TO NORMAL ROUTINE 
3870 032024 022706 000600 CMP #USESTK.USP :WAS SOMETHING PUSHED ON STACK AT THE MFPI 
3871 032030 001407 BEQ 2$ ‘BRANCH IF NOTHING WAS PUSHED 
3872 032032 012600 MOV (USP) +,RO ‘POP USER STACK INTO RO 
387 032034 012701 001100 MOV #KERSTK,R1 sEXPECTING 1100 AS KSP 
3874 032040 020001 CMP RO,R1 :DID YOU GET THE RIGHT POINTER? 
3875 032042 001403 BEQ 3$ BRANCH IF YOU DID 
3876 032044 104023 ERROR +23 ONG THING WAS PUSHED ON STACK 
3877 :FOR TIGHTER SCOPE LOOP, REPLACE oa. 3$'' WITH ‘BR 1$"' = 000763 
3878 032046 000401 :BR H TO NEXT TRY 
3879 032050 104025 2$: ERROR +25 :NO NG PUSHED ONS AC 
338 :FOR TIGHTER SCOPE LOOP, REPLACE “the 2$'' WITH ‘BR is" S 900763 
3882 -THE FOLLOWING WILL TEST DSTM=1 MFPI. 
3883 032052 012737 002516 001110 %$: MOV WMFPILP,$LPERR ;SET LOOP ON ERROR POINTER TO MEPILP IN SUBROUTINE 
3884 032060 012737 140340 002520 MOV #140340, MFPIPS ;MAKE PREVIOUS MODE KERNEL PRESENT USER 
5 03 066 010757 032304 002622 MOV WMFPIVG.MFPIVC :MOVE THIS TEST'S MM TRAP VANDLER TO MFPIVC 
032074 012700 036514 MOV #36514,R0 [LOAD DATA EXPECTED INTO RO 
3887 032100 012702 100000 V #100000,R2 ‘LOAD VIRTUAL ADDRESS INTO R2 
032104 004737 002464 JSR MFPITS :60 DO TEST USING MFP] INSTRUCTION LOCATED 
3889 032110 006512 MFP] (R2) = <HERE - READ FROM PHYSICAL 
3890 032112 000240 NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
3891 032114 104023 ERROR +23 “WRONG DATA WAS FETCHED 
3892 032116 005726 TST (SP) + -POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
$32 : THE FOLLOWING WiLL TEST DSM=2 MFPI 
032120 012702 100000 ‘MOV #100000,R2 LOAD VIRTUAL ADDRESS INTO R2 
3895 0 124 004737 002464 JSR PC _MFPITS 7GO DO TEST USING MFPI INSTRUCTION LOCATED 
96 032130 006522 MFPI (R2)+ :<HERE = READ FROM PHYSICAL 60000 
3897 032132 000240 NOP DE - NEEDED FOR SUBROUTINE LOAD 
3898 032134 104023 ERROR +23 “RETURN 1S HERE FOR ERROR - WRONG DATA WAS FETCHED 
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TEST # 26 ~ MFPI (KERNEL) TO USER MODE 
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99 032136 005726 TST (SP) :POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=3 MFP] 
3901 032140 004737 002464 JSR PC MFPITS _ DO TEST USING MFPI INSTRUCTION LOCATED 
3902 032144 006537 100000 MFP]  a#100000 ;<HERE ~ READ FROM PHYSICAL 60000 
903 032150 104085 ERROR +23, DATA WAS 
904 032152 005726 TST (SP) >POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
3905 :THE FOLLOWING WILL TEST DSTM=4 MFPI. 
906 032154 012702 100002 MOV #100002,R2 LOAD VIRTUAL ADDRESS INTO R2 
907 032160 004737 002464 JSR PC .MFPITS ‘60 DO TEST USING Me PI INSTRUCTION LOCATED 
908 032164 006542 MFP PthOD ><HERE - READ FROM PHYSICAL 60000 
3909 0 166 000240 NOP *NOT MOD OR 7 = NEEDED FOR SUBROUTINE LOAD 
3910 032170 10402 ERROR +23 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
3911 032172 005726 aA TST (SP) + =POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3912 :THE FOLLOWING WILL TEST DSTM=5 MFPI. 
391 03 174 012737 100000 001202 MOV #100000,$TMP2 ;LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 
3914 0 202 01 702 001204 MOV #<STMPO+2>, R2  :LOAD ADDRESS OF $TMP2+2 | 
3915 032206 004737 002464 JSR PC .MFPIT :GO DO TEST USING MFPI INSTRUCTION LOCATED 
3916 032212 006552 MFP] a=(R2) = <HERE - READ FROM PHYSICAL 
917 032214 000240 NOP ;NOT MODE 3, 6 OR 7 = NEEDED FOR SUBROUTINE LOAD 
918 032216 104023 ERROR +23 sRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
3919 032220 005726 TST (SP) + >POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
39 :THE FOLLOWING WILL TEST DSTM=6 MFPI. 
3921 032222 005002 CLR R2 :MAKE REGISTER 2 A ZERO 
32¢ 032224 004737 002464 JSR PC .MFPITS :GO DO TEST USING MFPI INSTRUCTION LOCATED 
923 03 006562 10000 MFPI 100000(R2) = <HERE = READ EROM PHYSICAL 60000 
3924 03 34 104023 ERROR +23 ‘WRONG DATA WAS FETCHED 
925 032236 005726 TST (SP)+ :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
926 :THE FOLLOWING WILL TEST DSTM=7 MFPI. 
3927 03 340 012737 001202 MOV #100000,$TMP2  ;LOAD TEST LOC. VIRT. ADDR. INTO STMP2 
3928 032246 012702 001202 MOV #STMP2,R2 :LOAD ADDRESS OF $TMP2 | 
3929 0 $32 004737 002464 JSR PC .MFPITS -GO DO TEST USING MFPI INSTRUCTION LOCATED 
3930 032256 006572 000000 MFPI a0(R2) :<HERE - READ FROM PHYSICAL 60000 
3931 032262 104023 ERROR +23 “WRONG DATA WAS FETCHED 
393 032264 005726 TST :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
93 032 66 012737 000340 177776 MOV #00340 PSW =GO BACK TO KERNEL MODE . PREVIOUS KERNEL 
3934 032274 112737 000 177610 MOVB #6, UIPOR “MAKE UIPDR4 RESIDENT 
3935 032302 000423 BR : :BRANCH TO NEXT TEXT 


i 
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CKKTBDO 
MM TRAP HANDLER FOR ABOVE TEST 
? .SBTTL MM TRAP HANDLER FOR ABOVE TEST 
12637 001 MFPIV4: MOV (KSP)+,TRAPPC ;:SAVE PC & PS OF TRAP 
0 012637 MOV (KSP) +” TRAPPS 
: 14 013737 1 1 MOV SRO. WASSRO :SAVE SRO FOR ERROR TYPEQUT 
13737 177576 MOV SR2.WASSR2 ; SAVE SR2 FOR ERROR TYPEQUT 
| é 042737 160000 BIC #160000, SRO 7CLEAR ERROR BITS IN 
| 104026 RROR +26 : TRIED TO READ NON-RESIDENT PAGE 
:FOR TIGHTER SCOPE LOOP, REPLACE 1ST MOV INSTRUCTION WITH AN 'RTI'’ = 000002 
| 50 013746 001262 MOV TRAPPS , =(KSP :PUT PC & PS OF TRAP ON STACK 
| 3946 032344 013746 001 MOV TRAPPC . =(KSP) 
| 032350 000002 RT! :RETURN TO TEST 
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8 SEQUENCE 119 
| # 27 - MFP] (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


3962 -SBTTL TEST # 27 ~ MFPI (SUPERVISOR) WITH SUPER D-SPACE ENABLED 
FERRER ARERR EREEEEEREEEREEEKEE KEKE 
| CSTEST 27 MFP] (SUPERVISOR) WITH SUPER D-SPACE ENABLED 
+ 
| te THIS TEST USES THE 'MFPI* INSTRUCTION TO ENSURE THAT PREVIOUS MODE IS 
| :* CLOCKED CORRRECTLY, AND THAT D=SPACE IS NOT ENABLED. THE TEST ITSELF 
| :* 1S CARR IED OUT IN. SUBROUTINE MFPITS, WHICH USES THE MFPI INSTRUCTION 
| :* CODE FOLLOWING THE JSR CALL TO EXECUTE THE TEST. *IMPORTANT* - ALL 
| :* “NOP'S'' FOLLOWING MEP] S OF MODES 1,2, 4 AND 5 ARE TO BE LEFT ALONE. 
| :* THE SUBROUTINE LOADS THE TWO WORDS AFTER THE JSR CALL. PREPARING FOR 
| o# MODES 3, 6 AND 7. 
j ** 
| :* IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 
ot TRAP TO MFPIVS, WHERE THE ERRORS ARE REPORTED. 
*“* 
MI TITITITITTIITTITITT LILI LLL LLL LLL LLL LLL LLL ELL LTT TT 
032352 000004 1S127: SCOPE 
3963 032354 012700 077400 MOV #77400,R0 :MAKE PAGE 4 IN ALL BUT SUPERVISOR I 
3964 :AND KERNAL I NON-RESIDENT 
3965 032360 010037 172330 MOV RO, KDPDR4 :KERNAL D=SPACE PAG 
3966 032364 010037 172230 MOV RO. SDPDR4 : SUPERVISOR D=-SPACE PAGE 4 
3967 032370 010037 177630 MOV RO. UDPDR4 “USER D-SPACE 
3968 032374 010037 177610 MOV RO. UIPDR4 “USER I-SPACE PAGE 4 
3969 032400 012700 036514 MOV #36514,RO : DATA PATTERN INTO RO 
3970 032404 010037 060000 MOV RO, a4#60000 =LOAD DATA PATTERN INTO PHYS. 60000 
3971 032410 052737 000002 172516 BIS #B1T1,MMR3 sENABLE SUPERVISOR D-SPACE 
3972 032416 105037 172310 KIPDR4 -MAKE KERNAL I-SPACE PAGE 4 NON-RESIDENT 
973 THE FOLLOWING WILL TEST DSTM=1 
3974 032422 012737 002516 001110 PILP,$LPERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 
3975 032430 012737 010340 002520 MOV #010340,MFPIPS :MAKE PREVIOUS MODE SUPERVISOR IN SUBRTN LOCATION 
3976 032436 012737 032562 002622 MOV PIVS,MFPIVC :MOVE THIS TEST’S MM TRAP HANDLER TO MFPIVC 
3977 032444 012702 100000 MOV 100000, : VIRTUAL ADDRESS INTO R2 
3978 032450 004737 002464 JSR PC _MFPITS :GO DO TEST USING THE MFPI INSTRUCTION FOUND 
3979 032454 006512 MFP] (R2) :<HERE - READ FROM PHYSICAL 60000 
3980 032 000240 NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
3981 032460 104037 ERROR +37 :RETURN IS HERE FOR ERROR - WRONG DATA FETCHED 
3982 032462 005726 TST (SP)+ >POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=2 MFPI. 
3984 032464 012702 100000 MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3985 032470 004737 002464 JSR PITS ;G0 DO TEST USING THE MFPI INSTRUCTION FOUND 
986 032474 006522 MFPI (R2)+ :<HERE - READ FROM PHYSICAL 100000 
3987 032476 000240 NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
3988 032500 104037 ERROR +37 :RETURN IS HERE FOR ERROR - WRONG DATA FETCHED 
3989 032502 005726 TST (SP) + =POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
3990 :THE FOLLOWING WILL TEST DSTM=3 MFPI. 
3991 032504 012702 100000 MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
032510 004737 002464 JSR PC .MFPITS :GO DO TEST USING THE MFPI INSTRUCTION FOUND 
3993 032514 006537 100000 MFPI  a#100000 = <HERE - READ FROM PHYSICAL 100000 
032520 104037 ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA FETCHED 
3995 032522 005726 (SP -POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
: THE FOLLOWING WILL TEST DSTM=4 MF 
997 032524 012702 100002 #100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
032530 004737 002464 ISR PC MFPITS G0 DO TEST USING THE MFPI INSTRUCTION FOUND 
3999 032534 006542 MFP]  =(R2) > <HERE - READ FROM PHYSICAL 100000 
032536 000240 NOP ‘NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
4001 032540 104037 ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA FETCHED 
4002 032542 005726 T (SP) + *POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 





PRT B MACRO M1113 12-JAN-82 12:19 PAGE 89 
RVISOR) WITH SUPER D-SPACE ENABLED 
oi 1g210 MOVB #6,KIPDR4 
172516 BIC #B1T1,MMR3 
BR TST30 


yr) KIPDR4 RESIDENT 
DISABLE SUPERVISOR D-SPACE 
‘BRANCH TO NEXT TEST 


SEQUENCE 


120 


— a a Sse 


MACRO M1113 12-JAN-82 12:19 PAGE 5,10 SEQUENCE 121 


(xk TBDO 11/44 MEM MGMT PRT B 
MM TRAP HANDLER FOR ABOVE TEST 
| 4007 .SBTTL MM TRAP HANDLER FOR ABOVE TEST 
| & 0 562 013737 177572 001264 MFPIVS: MOV MMRO, WASSRO :SAVE MMRO FOR ERROR TYPEOUT 
4009 032570 013737 177574 001266 MOV MMR1.WASSR1 :SAVE MMR1 FOR ERROR TYPEOUT 
4010 032576 013737 177576 001270 MOV MMR -WASSR : SAVE WAR? FOR ERROR TYPEOUT 
4011 032604 013737 172516 001272 MOV SSR :SAVE MMR3 FOR ERROR TYPEOQUT 
4012 612 0126 4 001260 MOV apse. TRAPPC ;SAVE PC @ PS OF TRAP 
4013 032616 012637 001262 MOV (KSP) +. TRAPPS 
4014 032622 104040 ERROR +40 TRIED TO READ NON-RESIDENT PAGE 
4015 :FOR TIGHTER SCOPE LOOP, REPLACE "1ST MOV INSTRUCTION WITH AN "RTI'' = 000002 
4016 032624 013746 001262 MOV PS,-(KSP) ;:PUT PC & PS OF TRAP ON STACK 
4017 032630 013746 001260 MOV TRAPP. ~(KSP) 
4018 032634 000002 RT] 


_—— 2 + ——S ee 
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SEQUENCE 


# 30 ~- MTP] (SUPERVISOR) WITH SUPER. D-SPACE ENABLE 
- SBTTL TEST # 30 - MTPI (SUPERVISOR) WITH SUPER. D-SPACE ENABLED 


4033 


032636 
4034 032640 
4035 
4036 032646 
4037 032654 


4038 052662 
rr st 032670 


4046 032714 
4047 

4048 032716 
04 2 


5 734 

4053 032736 
4054 

4055 032740 


4059 032756 
4060 032760 
4061 032762 
4062 032764 


2065 O65 039776 

4066 03277 

4067 033000 
033004 


4069 03 
4070 03301 
4071 0330 

330 


0 
12 
4072 0335020 


000002 
002654 


052525 
002626 
100000 


125252 
100002 
002626 


052525 


002626 
100000 


000002 


172516 
001110 


002656 
002744 


172516 


ee * Se 
epee een eenene en. 


SSAA AERA AAAAAAAAEEAAEAEAEARAERAEEAAAEARAEREAAAERERERERAEEREEK KEES 


;*TEST 30 


MIP] (SUPERVISOR) WITH SUPER. D=-SPACE ENABLED 


THIS TEST USES THE ‘MTPI* rte EL TO ENSURE THAT THE PREVIOUS wars 
IS CLOCKED CORRECTLY, AND THAT D-SPACE IS NOT ENABLED. THE TEST ITSELF 
IS CARRIED OUT IN SUBROUTINE. MTPITS, WHICH USES THE MTPI INSTRUCTION 
CODE Ante THE JSR CALL TO EXECUTE THE TEST. *IMPORTANT* = ALL 
"'NOP'S'' FOLLOWING MTPI°S OF MODES 1,2, 4 AND 5 ARE TO BE LEFT ALONE. 
LI a ae THE TWO WORDS AF ter THE JSR CALL, PREPARING FOR 


IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 
AND TRAP TO MTPIV3, WHERE THE ERRORS ARE REPORTED. 


MmALAALALASLAALAAALALASALALASLALESLAELELALELERSSESE SALES ERE SESE SESE SS 


SCOPE 


#B1T1,MMR3 sENABLE SUPERVISOR DSPACE 


MOV #MTPIV3,MTPIVC :LOAD THIS TEST'S MM TRAP HANDLER TO MTPIVC 
MOV #100000.R2 =LOAD VIRTUAL ADDRESS INTO R2 

MOV #125252.RO ‘LOAD TEST DATA INTO RO 

JSR PC_MTIPITS :GO DO THE TEST USING MTPI INSTRUCTION FOUND 
NIP (R2) =LOAD TEST DATA INTO PHYSICAL 100000 


.WORD 0 sADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 

ERROR +35 sRETURN IS HERE FOR ERROR - INCORRECT STORE 

TST (SP)+ :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THIS WILL TEST DSTM = 3 MTPI 

MOV #52525.RO :LOAD TEST DATA INTO RO 

JSR PC mIPITS :GO PO THE TEST USING MTPI INSTRUCTION FOUND 

MTP] af100 :<HERE - LOAD TEST DATA INTO PHYSICAL 100000 

.WORD 0 :ADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 

ERROR +35 :RETURN IS HERE FOR ERROR - INCORRECT STORE 

TST (SP)+ :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THIS WILL TEST DSTM = 4 MTPI 

MOV #125252.R0 sLOAD TEST DATA INTO RO 

MOV #100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 

JSR PC,.MTIPITS :GO DO THE TEST USING MTPI INSTRUCTION FOUND 

MIP] -(R2) =<HERE = LOAD TEST DATA INTO PHYSICAL 100000 

NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 

.WORD 0 “ADD 0 TO Ree AFTER MTPI INSTRUCTION EXECUTE 

ERROR +35 “RETURN IS HERE FOR ERROR - INCORRECT STORE 


TST (SP)+ 
: THIS a DSTM = 6 MTPI 


:POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


#52525 ,RO :LOAD TEST DATA INTO RO 
CLR R2 “MAKE R 
JSR PC MIPITS :G0_DO THE TEST USING MIPI INSTRUCTION F OUND 
MTP]  100000(R2) -<HERE - LOAD TEST DATA INTO PHYSICAL 100000 
WORD 190000 “ADD 100000 TO RD AFTER MTP] INSTRUCTION EXECUTE 
ERROR +35 “RETURN IS HERE FOR ERROR - INCORRECT STORE 
TST (SP) + :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 


DISABLE SUPERVISOR D-SPACE 
‘BRANCH TO NEXT TEST 





:SET LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
sMAKE PREVIOUS MODE SUPERVISOR IN LOCATION IN SUBRTN 


122 


;<HERE - NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 


A 


Is 


a ve 11/44 MEM MGMT PRT B 
TRAP HANDLER FOR ABOVE TEST 


i 8 13700 177572 
oBS is Sas Bn 1370) 177574 


2086 033040 000002 


MACRO M1113 12-JAN-82 12:19 PAGE g,t0 


Pl MM TRAP HANDLER FOR ABOVE TEST 
MTPIV3: MMRO ,RO SAVE MMRO FOR ERROR TYPEOUT 
MOV MMR1,R1 SAVE MMR1 FOR ERROR TYPEOUT 
MMR2 ,R2 ;SAVE MMR2 FOR ERROR a 
ERROR +36 : TRIED TO LOAD A_ NON-RESIDENT PA 
:FOR bie SCOPE LOOP, REPLACE ana t INSTRUCTION WITH AN "RTI 


GF, 4 


SEQUENCE 


000002 


123 


— 
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CxKTBDO 11/44 MEM MGMT PRT B MACRO M1113 SEQUENCE 124 
TEST # 31 = MTP] (USER) ef. USER D=-SPACE ENABLED 
4081 .SBITL TEST # 31 ~ MIPI (USER) WITH USER D-SPACE ENABLED 
{EAA AAAEA EEA ARAAAAEAEAEEREREAEERREKEERKAHKKR EEE 
CSTEST 31 MTP] (USER) WITH USER D=SPACE ENABLED 
4 
:8 THIS TEST USES THE 'MTPI' INSTRUCTION TO ENSURE THAT THE PREVIOUS MODE 
:* 1S CLOCKED CORRECTLY, AND THAT D-SPACE IS NOT ENABLED. THE TEST ITSELF 
| 8 1S CARRIED OUT IN SUBROUTINE MTPITS, WHICH USES THE MTPI INSTRUCT 1ON 
| 8 CODE FOLLOWING THE JSR CALL TO EXECUTE THE TEST. “IMPORTANT * 
| Se “"NOP'S'’ FOLLOWING MTPI'S OF MODES 4 AND 5 ARE TO BE LEFT ALONE. 
Ze THE SUBROUTINE LOADS THE TWO WORDS AFTER THE JSR CALL, PREPARING FOR 
| :* MODES 3, 6 AND 7. 
*“* 
| ie IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 
s* AND TRAP TO MTPIV4, WHERE THE ERRORS ARE REPORTED. 
** 
*: H “REE RKAREKKEAAEKEKEEKAAEEEEREKRAAEEKAKAKAKREKKAKAKAKEKKKKKKKREKKKKAKEKKKEESE 
033042 4 TST31: SCOPE 
4082 033044 012737 077400 172210 MOV #77400,SIPDR4 =MAKE SIPDR4 NON-RESIDENT 
4083 033052 012737 077406 177610 #77406.UIPDR4 :MAKE UIPDR4 RESIDENT 
4084 033060 052737 000001 172516 BIS #8170 MARS “ENABLE USER D-SPACE 
4085 :THIS WILL TEST DSTM = 1 MT 
4086 033066 012737 002654 001110 MOV #MTPILP,SLPERR T LOOP ON ERROR POINTER TO MTPILP IN SUBROUTINE 
4087 033074 012737 030340 002656 MOV #030340{MTPIPM MAKE LOCATION IN SUBROUTINE PREVIOUS MODE USER 
4088 033102 012737 033242 002744 MOV #MTPIVG.MTPIVC :PUT THIS TEST'S MM TRAP HANDLER ADDRESS IN LOC MTPIVC 
4089 033110 012702 100 MOV #100000.R2 :LOAD VIRTUAL ADDRESS INTO R2 
4090 033114 012700 125252 MOV wi23292. RO =LOAD TEST DATA INTO RO 
4091 033120 004737 002626 JSR PC, MTPITS *GO DO TEST USING MTPI INSTRUCTION FOUND 
4092 033124 00661 MIPI (Ro) ; HERE = LOAD TEST DATA INTO PHYSICAL 1 
4093 033126 000240 NOP E NOT 3, 6 OR 7 - NEEDED FOR SUBROUTINE L 
4094 033130 .WORD 0 “ADD 0 TO Re AFTER MIPI INSTRUCTION EXECUTE 
4095 033132 10403 ERROR +35 “RETURN IS HERE FOR E INCORRECT STORE 
4096 033134 005726 TST )+ =POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
4097 THIS WILL TEST DSTM = 3 MTPI 
4098 033136 012700 052525 enrei :LOAD TEST DATA INTO RO 
4099 033142 004737 002626 JSR PC MIP :GO DO TEST USING MTPI INSTRUCTION FOUND 
4100 033146 006637 100000 MTP]  af100 :<HERE - LOAD TEST DATA INTO PHYSICAL 100000 
4101 033152 000000 .WORD 0 :ADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
4102 033154 104035 ERROR +35 *RETURN IS HERE FOR ERROR - INCORRECT STORE 
4103 033156 005726 TST (SP)+ =POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
4104 :THIS WILL TEST DSTM = 4 MTP] 
4105 033160 012700 125252 MOV #125252,R0 ;LOAD TEST DATA INTO RO 
4106 033164 012702 100002 MOV #100002 .R2 “LOAD VIRTUAL ADDRESS INTO R2 
4107 033170 004737 002626 SR PC .MTPIT :60 DO TEST USING MTPI INSTRUCTION FOUND 
4108 033174 006642 MTP]  -(R2) “LOAD TEST DATA INTO PHYSICAL 100000 
4109 033176 000240 = <HERE - MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
4110 033200 D “ADD 0 TO R2 AFTER MTPI INSTRUCTION EXECUTE 
4111 033202 104035 ERROR +35 “RETURN IS HERE FOR ERROR - INCORRECT STORE 
411g 033204 005726 T P)+ “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
411 THIS WILL TEST DSTM = 6 MTPI 
4114 0332 012700 052525 MOV 2525,R0 :LOAD TEST DATA INTO RO 
4115 033212 005002 CLR : 
4116 033214 004737 002626 JSR PC_MIPITS =GO DO TEST USING MTPI INSTRUCTION FOUND 
4117 033220 006662 100000 MTPI  100000(R2) = <HERE = LOAD TEST DATA INTO PHYSICAL 100000 
4118 0332 4 1 -WORD 100000 “ADD 100000 TO Re AFTER MTPI INSTRUCTION EXECUTE 
4119 033226 10403 ERROR + *RETURN IS HERE FOR ERROR - INCORRECT STORE 
4120 033230 005726 TST (SP) + POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
4121 033232 042737 000001 172516 BIC #B1TO,MMR3 “DISABLE USER D-SPACE 


k-clwy 11/44 MEM MGMT PRT B MACRO M1113 ite 12:19 PAGE - 439 S 125 
# 31 - MTP] (USER) nUITH USER D-SPACE E a s 


4122 033240 000410 BR TST32 BRANCH TO NEXT TEST 
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wer M1113 12-JAN-82 12:19 PAGE 36 


-SBTTL MM TRAP CATCHER FOR THE ABOVE TEST 
MTPIV4: MOV MMRO ,RO ;SAVE MMRO FOR ERROR TYPEOUT 
MOV MMR1,R1 SAVE MMR1 FOR ERROR TYPEOUT 
MOV MMR2 ,R2 SAVE MMR2 FOR ERROR slate 
ERROR +36 ‘FRIED TO LOAD A NON-RESIDENT PA 
3FOR ine SCOPE LOOP, REPLACE TST MOV. INSTRUCTION WITH AN 


RII 5 


SEQUENCE 


000002 


126 


——_— 


a 11/44 MEM MGMT PRT B MACRO M1113 
T # 32 = MFP] (PREVIOUS=CURRENT=KERNEL ) 


4139 .SBTTL TEST # 32 ~ MFPI (PREVIOUS=CURRENT=KERNEL) 
| 


K 10 
12-JAN-82 12:19 PAGE 95 SEQUENCE 127 


{REAR AAA AAA AEE AEA AEE ERE EE 


SS TEST 32 MFPI (PREVIOUS=CURRENT=KERNEL) 
** 
_ THIS FEST CHECKS THAT IF BOTH PREVIOUS AND CURRENT MODES ARE KERNEL, 
st AND THE SOURCE MODE IS ,, THE DESTINATION STACK IS NOT DECREMENTED 
| ;* BEFORE ACCESS. ‘MFPI KSP°' SHOULD PUSH THE NON-DECREMENTED VALUE OF KSP 
| +t (1100) ONTO THE STACK. eat LOC. 1076). 
** 
| Fi hsb-b-telelebebpbolebabaelelehehebabebalebebebebehbbebebebbebibbiebeiebbihbbbbbibhhbbbbbihihhts 
033262 000004 TST32: SCOPE 
4140 033264 112737 000006 172330 1$: MOVB #6, KDPDR4 :MAKE KDPDR4 RESIDENT - 
4141 033272 005037 177776 CLR aAPSW :SET PREVIOUS = CURRENT = KERNEL 
4142 033276 012700 001100 MOV #STACK,RO :SETUP VALUE FOR STACK POINTER 
43 033302 010006 MOV RO,KSP “LOAD STACK POINTER 
144 033304 006506 MFP] KSP ;THE VALUE ‘‘STACK'’ SHOULD BE PUSHED BEFORE BEING DEC'D 
145 033306 01.571 MOV (KSP) ,R1 :READ DATA WHICH WAS PUSH 
4146 033310 020L01 CMP RO,R1 :WAS THE ORIGINAL VALUE OF THE STACK POINTER PUSHED? 
4147 033312 00142! BEQ ANCH H IF YES 
4148 033314 104037 ERROR +37 F.CHED HRONG DATA 
49 -FOR TIGHTER SCOPE LOOP, REPLACE “Moco 5S e ‘BR 1$'' = 000767 
4150 033316 005740 2$: TST -(RO) :SET UP EXPECTED STACK POINTER VALUE 
151 033320 020 CMP KSP,RO :WAS THE STACK POINTER DECREMENTED? 
52 033322 001401 3$ :8 NCH wt YES 
4153 033324 104025 3 ERROR +25 T PUSHED BY THE MFPI 
4154 -FOR TIGHTER SCOPE LOOP, REPLACE mBea. 33° "BR 1$'' = 000760 
4155 033326 012706 001100 3$: MOV #STACK,KSP : RESTORE STACK POINTER 


Ss SS <GSSSS 
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Fee ree 11/44 MEM MGMT PRT 
# 33 - MFPD (SUPERVISOR) WITH SUPER D-SPACE ENABLED 
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000600 
077400 


172330 


0 2 
172310 


002770 
010340 
033564 
100000 
002746 


100000 
002746 


100000 
002746 
100000 


100002 
002746 
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172230 


172516 
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002772 
003040 
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12-JAN~82 12:19 PAGE 56 SEQUENCE 128 


- SBTTL TEST # 33 - MFPD (SUPERVISOR) WITH SUPER D-SPACE ENABLED 


{RARER AERA AEA EE 





**TEST 33 MFPD (SUPERVISOR) WITH SUPER D-SPACE ENABLED 
** 
:* THIS TEST CHECKS TO SEE THAT THE REFERENCE IS TO D=SPACE IF THE »lNSRUC- 
i TION IS AN MFPD. THE TEST ITSELF IS CARRIED OUT IN SUBROUTINE MFPDTS, 
:* WHICH USES THE MFPD INSTRUCTION CODE FOLLOWING THE JSR CALL TO EXECUTE 
“i THE TEST. *IM PORTANT - ALL "NOP'S’' FOLLOWING MFPD'S OF MODES 1,2, 
oi 4 AND 5 ARE TO BE LEFT ALONE. THE SUBROUTINE LOADS THE TWO WORDS 
“8 AFTER THE JSR CALL, PREPARING FOR MODES 3, 6 AND 7. 
** 
a IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR 
tt AND TRAP TO MFPDV1, WHERE THE ERRORS ARE REPORTED. 
** 
PU TIIIIITITTIITIITITILITITI LILI LLL LLL LLL LLL LLL ELL LLL LLL 
TST33: SCOPE 
MOV #600 SDPARA :MAP SDPAR4 TO 12k 
20$: MOV #77400,RO :MAKE PAGE 4 IN ALL BUT SUPERVISOR D 
‘AND KERNAL I NON-RESIDENT 
MOV RO.KDPDR4 “KERNAL D=SPACE PAGE 4 
MOV SUPERVISOR I-SPACE PAGE 4 
MOV USER D=SPACE PA 
MOV “USER I-SPACE PAGE 4 
MOV ; SDPDR4 RE 
MOV =LOAD DATA PATTERN INTO RO 
MOV =LOAD DATA PATTERN INTO PHYS. 100000 
BIS [ENABLE SUPERVISOR D-SPACE 
CLRB  KIPDR4 *MAKE KERNAL I-SPACE PAGE 4 NON-RESIDENT 
:THE FOLLOWING WILL TEST DSTM=1 MFPD 
MOV #MFP PERR ;:SET LOOP ON ERROR POINTER TO MFPDLP IN SUBROUTINE 
MOV #010340. MFPDPS :MOVE PREVIOUS MODE=SUPERVISOR TO LOCATION IN SUBRTN 
MOV #MFEPDV1.MFPDVC :PUT ADDRESS OF THIS TEST'S MM TRAP CATCHER IN MFPDVC 
MOV #100000.R2 =LOAD VIRTUAL ADDRESS INTO R2 
JSR PC .MFPDTS =GO DO TEST USING THE /BFPD INSTRUCTION LOCATED 
MFPD = (R2) :<HERE - READ FROM PHYSICAL 100000 
NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
ERROR +37 [RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST (SP)+ -POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
: THE FOLLOWING WILL TEST DSTM=2 MF PD 
MOV #100000 .R2 ;LOAD VIRTUAL ADDRESS INTO R2 
JSR PC .MFPDTS -GO DO TEST USING THE MFPD INSTRUCTION LOCATED 
MFPD (R2)+ = <HERE - READ FROM PHYSICAL 100000 
NOP :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
ERROR +37 sRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
TST: (SP)+ “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
:THE FOLLOWING WILL TEST DSTM=3 MFPD 
MOV #100000,R2 ;LOAD VIRTUAL ADDRESS INTO R2 
J PC MF :GO DO TEST USING THE MFPD INSTRUCTION LOCATED 
MFPD  af100000 = <HERE - READ FROM PHYSICAL 100000 
ERROR +37 “WRONG DATA WAS FETCHED 
TST (SP)+ “POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
THE FOLLOWING WILL TEST DSTM=4 MFPD 
MOV 100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
JSR PC .MFPDTS :60 DO TEST USING THE MFPD INSTRUCTION LOCATED 
MFPD = =(R2) <HERE ~ READ FROM PHYSICAL 100000 
OP ‘NOT MODE 3, 6 OR NEEDED FOR SUBROUTINE LOAD 
ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
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BDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 96-1 SEQUENCE 129 
# 33 = MEP (SUPERVISOR) WITH SUPER D-SPACE ENABLED 
4211 34, 0057 : TST (SP)+ ;POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
4 1g 40 7 009002 172516 BIC #B1T! MMR3 : DISABLE agUPERVISOR D=-SPACE 
421 46 127 4 MOV #77406,RO i SET UP RO FOR 4k RESIDENT R/w 
4214 033552 01 17231 MOV RO, KIPDR4 MAKE KIPAR4 RESIDEN 
4215 0 356 010037 177630 MOV RO UDPDR4 ;MAKE UDPDR4 RESIDENT 
4216 033562 000423 BR TST 34 : BRANCH TO NEXT TEST 


N_10 
PRT B MACRO M1113 12-JAN-82 12:19 PAGE 97 


CK 1800 11/44 MEM MGMT 
hes TRAP HANDLER FOR THE ABOVE TEST 
s 18 .SBTTL MM TRAP HANDLER FOR THE VE TEST 
42] 564 13737 177572 001264 MFPDV1: MOV rR. WA SRO :SAVE MMRO FOR ERROR TYPEOUT 
4220 13737 177574 001266 MOV WASSRI :SAVE MMR1 FOR ERROR TYPEOUT 
4221 13737 177576 001270 MOV peal WASSR2 >SAVE MMR2 FOR ERROR TYPEOUT 
4 é ot 637 0012 MOV me A TRAPPC :SAVE PC & PS OF TRAP 
4 1 12637 001262 MOV (KSP) +. TRAPPS 
4226 16 104040 ERROR +40 TRIED TO READ NON-RESIDNT PAGE 
4225 :FOR TIGHTER SCOPE LOOP, REPLACE 1ST MOV INSTRUCTION WITH AN ‘RTI 
4226 0 20 013746 001262 MOV TRAPPS,-(KSP) ;:PUT PC & PS OF TRAP ON STACK 
4 ¢7 033624 013746 001260 MOV TRAPPC , =(KSP) 
4228 033630 000002 RTI :RETURN TO TEST 


SEQUENCE 


= 000002 


130 


CKKTESO 11/464 MEM MGMT PRT 8B MACRO M1113 12-JAN-82 12:19 PAGE 58 SEQUENCE 131 
TEST # 34 = MFP] (USER/PREV USER) WITH USER D-SPACE ENABLED 


4260 -SBTTL TEST # 34 ~ MFPI (USER/PREV USER) WITH USER D=SPACE ENABLED 
{EERE AAA TA AAAAEAAAA EAA AAAAAAEAAERAARERAEAAERARKRAAEERARRER EHR E EAE 

CSTEST 36 MFP] (USER/PREV USER) WITH USER D-SPACE ENABLED 

** 

+ THIS TEST CHECKS THAT IF THE INSTRUCTION IS AN MFPI AND BOTH THE 

ot PRESENT AND PREVIOUS MODES ARE USER, THEN D-SPACE IS USED IF IT IS 

:* ENABLED. IN THIS WAY AN OPERATING SYSTEM CAN MAKE PROPRETARY CODE 

:* “EXECUTE ONLY’’ FOR THE USER. 

** 

ot IF THE CORRECT MODE IS NOT ENABLED, A NON-RESIDENT ABORT WILL OCCUR AND 

oi TRAP TO MFPIV6, WHERE THE ERRORS ARE REPORTED. 

** 

PI TITIIIIITILIII LILI I LTT LI LLL LLL LLL LLL LLL LLL LLL LLL LLL T tt 

033632 000004 15734: SCOPE 

4241 033634 012737 000600 177670 MOV #600, UDPAR4 :MAP UDPAR4 TO 12k 
akg 033642 012700 036514 MOV #36514,R0 =LOAD DATA PATTERN INTO RO 
4243 033646 010037 100000 MOV RO, a4100000 :LOAD DATA PATTERN INTO PHYS. 100000 
4244 033652 052737 000001 172516 BIS #B1TO,MMR3 :ENABLE USER D-SPACE 
4245 0 105037 172230 CLRB SDPDR4 “MAKE SDPDR4 NON-RESIDENT 
42646 033664 105037 172310 KIP :MAKE KERNAL I-SPACE PAGE 4 NON-RESIDENT 
4267 : THE FOLLOWING WILL TEST DSTM=1 MF 
4248 033670 012737 002516 001110 PILP,$LPERR ;SET LOOP ON ERROR POINTER TO MFPILP IN SUBROUTINE 
4249 033676 012737 170340 002520 MOV #170340,MFPIPS :SET PREVIOUS AND CURRENT MODE TO LOCATION IN SUBRTN 
4250 033704 012737 034036 002622 MOV #MFPIV6,MFPIVC :PUT ADDRESS O; THIS TEST'S TRAP CATCHER IN MFPIVC 
4251 033712 012702 MOV #100000,R2 [LOAD VIRTUAL ADDRESS INTO R2 
4258 033716 004737 002464 JSR PC .MFPITS ;60 DO TEST USING THE MFP] INSTRUCTION LOCATED 
4253 033722 006512 MFPI (R2) <HERE - READ FROM PHYSICAL 100000 
4254 033724 000240 NOP ‘NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
4255 033726 104037 ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
4256 033730 005726 TST (SP)+ ;POP EXCESS RETURN OFF STACK = LOOPING NOT DONE 
4257 :THE FOLLOWING WILL TEST DSTM=2 MFP] 
4258 033732 012702 100000 MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
4259 033736 004737 002464 JSR PC_MFPITS 7GO DO TEST USING THE MFP] INSTRUCTION LOCATED 
4260 033742 006522 MFPI (R2)+ :<HERE - READ FROM PHYSICAL 100000 
4261 033744 000240 :NOT MODE 3, 6 OR 7 - NEEDED FOR SUBROUTINE LOAD 
4262 033746 104037 ERROR +37 SRETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
4263 033750 005726 (SP :POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
4264 :THE FOLLOWING WILL TEST DSTM=3 MFPI 
4265 033752 012702 100000 MOV #100000,R2 :LOAD VIRTUAL ADDRESS INTO R2 
4266 033756 004737 002464 JSR PC .MFPITS =GO DO TEST USING THE MFPI INSTRUCTION LOCATED 
4267 033762 006537 100000 MFPI a#100000 ;<HERE - READ FROM PHYSICAL 100000 
4268 033766 104037 ERROR +37 RETURN 1S HERE FOR ERROR - WRONG DATA WAS FETCHED 
4269 033770 005726 TST (SP)+ -POP EXCESS RETURN OFF STACK - LOOPING NOT DONE 
4270 : THE FOLLOWING WILL TEST DSTM=4 MFPI 
4271 033772 012702 100002 MOV #190002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
427@ 033776 004737 002464 JSR PC .MFPITS -GO DO TEST USING THE MFP] INSTRUCTION LOCATED 
4273 034002 006542 MFP] =(R2) ;<HERE ~ READ FROM PHYSICAL 100000 
4274 034004 000240 NOP T MOD é OR 7 = NEEDED FOR SUBROUTINE LOAD 
4275 034006 104037 ERROR +37 “RETURN IS HERE FOR ERROR - WRONG DATA WAS FETCHED 
4276 034010 005726 TST (SP)+ -POP EXCESS RETURN OFF STACK ~- LOOPING NOT DONE 
4277 034012 042737 000001 172516 BIC #81T0,MMR3 “DISABLE USER D-SPACE 
4278 034020 012737 000340 177776 MOV #340,PSWw “MAKE PRESENT MODE  KERNAL 
4279 034026 112737 000006 172310 MOVB 6, KIPDR4 ;MAKE KIPDR4 RESIDENT 
4280 034034 000423 BR TST35 > :BRANCH TO NEXT TEST 
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11/44 MEM MGMT PRT B MACRO M1113 12-JAN~82 12:19 PAGE $9 1 
CATCHER FOR ABOVE TEST SEQUENCE 132 


.SBTTL MM TRAP CATCHER FOR ABOVE TEST 

0 036 013737 177572 001264 MFPIV6: MOV MMRO, WASSRO :SAVE MMRO FOR ERROR TYPEOUT 

044 4 737, (177574 001266 MOV MMR1.WASSR1 *SAVE MMR1 FOR ERROR TYPEOUT 
034052 013737 177576 001270 MOV MMR2,WASSR2 >SAVE MMR2 FOR ERROR TYPEOQUT 
034060 012637 001260 MOV (KSP)+,TRAPPC SAVE PC & PS OF TRAP 
0 064 012637 001262 MOV (KSP) +. TRAPPS 
034070 104040 ERROR +40 : TRIED TO READ NON-RESIDENT PAGE 

:FOR TIGHTER SCOPE LOOP, REPLACE 1ST MOV INSTRUCTION WITH AN 'RTI"’ = 000002 

034072 013746 001262 MOV TRAPPS,-(KSP) ;PUT PC & PS OF TRAP ON STACK 
034076 013746 001260 MOV TRAPPC , -(KSP) 
034102 000002 RT] :RETURN TO TEST 


CKKTBDO 11/44 MEM MGMT PRT 8 MACRO M1113 12-Jan-82 12:19 PAGE 00. SEQUENCE 133 
TEST # 35 = TEST CSM INSTRUCTION - ILLEGAL KERNEL 
4300 .SBTTL TEST # 35 ~ TEST CSM INSTRUCTION ~ ILLEGAL KERNEL MODE 
i FERRARA AAA AAA EAA ERAAEARERERARARAAREERERERERAEAKREEEERREEEE 
| CSTEST 35 TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 
PUT TTIITITTIIILILI LILLE LLL TELL LT TTT 
| * THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
| :* INSTRUCTION TO MAKE SURE CSM IS ILLEGAL WHEN DISABLED 
| :* IN KERNEL MODE. 
FL EAA EEEEEREEAEKEAEARERAEAERERREEREEREREKEKEEKEERE EE 
fF EAR REAEEEAEEREEEEEEEEEERAEAEREEERAEREREEEEERAEEKEKEKEKEREKRES 
034104 TST35: SCOPE 
4301 0 10¢ 005037 172516 CLR MMR 3 :MAKE SURE MMR3 IS CLEARED, DISABLING CSM 
4302 03411 005037 177776 CLR PSW sMAKE SURE PSW PREVIOUS=CURRENT=KERNEL 
4303 034116 013737 000010 001204 MOV RESVEC,$TMP3 SAVE TRAPS TO 10 VECTOR 
4304 034124 012737 034140 000010 MOV #1$,RESVEC :TRAPS TO 10 GO TO 1 
4305 034132 005237 177572 INC MMRO :TURN ON MEMORY MANAGEMENT 
4306 034136 007000 CSMO “CSM ~— RO | 
4307 034140 013737 001204 000010 1s: MOV STMP3,RESVEC RESTORE TRAPS TO 10 VECTOR | 
4308 034146 005037 177572 CLR MMRO > TURN OFF MEMORY MANAGEMENT | 
4309 034152 005037 177776 CLR PSW “RETURN TO KERNEL MODE ) 
4310 034156 022726 034140 CMP #1$,(SP)+ :SEE IF IT WAS AN EXPECTED TRAP | 
4311 034162 001403 BEQ 2$ “BRANCH TO RESTORE STACK IF IT WAS 
4312 034 164 022626 CMP (SP)+, (SP)+ =CORRECT STACK 
4313 034166 104041 ERROR +41 SILLEGAL CSM DID NOT TRAP TO 10 
4314 034170 000401 BR TST36 : BRANCH AROUND STACK CORRECTION 
4315 034172 005726 2$: TST (SP) + =CORRECT STACK 
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by 11/44 MEM MGMT 


MACRO M1113 
36 - TEST CSM INSTRUCTION - ILLEGAL SUPERVISOR MODE 


- SBTTL TEST # 36 = TEST CSM INSTRUCTION = ILLEGAL SUPERVISOR MODE 


J EAA AEA EAE EEA AEA EREEEEEAEREAEREEAEREEEEKEEEERR EEE 


TEST CSM INSTRUCTION - ILLEGAL SUPERVISOR MODE 


177776 
001204 
000010 


000010 


TEST 36 


2$: 
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SEQUENCE 


MmARAALASAALASLASLAASLASAAARLARARASALESESELAR ELSE SERRE EE ELE PES ESET EE SS 


THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
INSTRUCTION TO MAKE 
IN SUPERVISOR MODE. 


MMR 
#40000 ,PSW 


RESVEC ,STMP3 


#1$ ,RESVEC 


MMRO 


STMP3,RESVEC 
MMRO 


PSW 
#1$,(SP)+ 
(SP)+,(SP)+ 
+41 


TST37 
(SP) + 


SURE CSM IS ILLEGAL WHEN DISABLED 


eerintestcnige pec, Snr mann shee beaten aR AE: stein sea eee ielcieanlelpeiclnt 


: SAV 
; TRAPS TO 10 GO 
; TURN ON —" MANAGEMENT 


; RESTORE TRAPS TO 10 weroe 
MOR 
ERNE 
SEE IF IT WAS AN EXPECTED TRAP 
CH AROUND ERROR CALL IF IT WAS 
OreeAL ST 


ACK 
LEGAL CSM DID NOT TRAP TO 10 
; BRANCH AROUND STACK CORRECTION 
:CORRECT STACK 


134 


we=e_eaenwnws —~——_ — — 
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JP EAA AER EERE EEHEKAEREREEKAHKEKER ERE 


CK 
TES # 37 - TEST CSM INSTRUCTION - ILLEGAL USER MODE 
| 4346 .SBTTL TEST # 37 - TEST CSM INSTRUCTION - ILLEGAL USER MODE 
FF AAA AAA AREA AEE AAA RARER AAAEAEREREAEEERAEREREEREKRRRKEREE EEE 
S&TEST 37 TEST CSM INSTRUCTION - ILLEGAL USER MODE 
| ‘t THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
| ie INSTRUCTION TO MAKE SURE CSM IS ILLEGAL WHEN DISABLED 
i IN USER MODE. 
ST AAA EREREEEEEERERERERERKKKEEEE 
5 PERERA AEE EAE REREKEEEEEEEEEEEEREREARERKEEEEEREREREEHEEKERERKHEHEE 
034266 000004 1S137: SCOPE 
4347 034270 005037 172516 LR MMR :MAKE SURE MMR3 IS CLEARED, DISABLING CSM 
4348 034276 050737 140000 177776 BIS #140000,PSW “GO TO USER MO 
4349 034302 013737 10 001204 MOV RESVEC,$TMP3 §_ : SAVE TRAPS TO 10 VECTOR 
4350 034310 012737 034324 000010 MOV #1$ .RESVEC “TRAPS TO 10 GO TO 1$ 
4351 034316 005237 177572 INC MMRO :TURN ON MEMORY MANAGEMENT 
435 034322 007000 CSMO “CSM oR 
4353 034324 013737 001204 000010 1$: MOV STMP3,RESVEC _:RESTORE TRAPS TO 10 VECTOR 
4354 034332 005037 177572 CLR MMRO “TURN OFF MEMORY MANAGEMENT 
4355 0 005037 177776 CLR PSW “RETURN TO KERNEL MODE 
4356 034342 022726 034324 CMP #1$, (SP)+ “SEE IF IT WAS AN EXPECTED TRAP 
4357 034346 001403 BEQ “BRANCH AROUND ERROR CALL IF IT WAS 
4358 034350 022626 CMP (SP)+, (SP)+ “CORRECT STACK 
4359 034352 104041 ERROR +41 “ILLEGAL CSM DID NOT TRAP TO 10 
4360 034354 000401 BR TST40 :;BRANCH AROUND STACK CORRECTION 
4361 034356 005726 2$: TST (SP) + “CORRECT STACK 
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SEQUENCE 136 
iT TEST # 40 = TEST CSM INSTRUCTION - ILLEGAL KERNEL MODE 


4369 .SBITL TEST # 40 - TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 
FERRARA AAA AERA AEE KEES 
| **TEST 40 TEST CSM INSTRUCTION = ILLEGAL KERNEL MODE 
4 “REECE AEKEEEAEEEAEEEKCEEAAEAKRAKAERAEARERAEAREAREAREARAREAREAKEREKREEEEEE 
| fe THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
| :* INSTRUCTION TO MAKE SURE CSM IS ILLEGAL WHEN ENABLED 
| : IN KERNEL MODE. 
: : “KEAEEKEEEEKRAEEEEEEAKAEAEAKEEEEKEEEKEEAAEKEAKEAEKEEAKEKEKEKREKEKREKREEEEESE 
a3 “REECE KEAEEKEKREKKEKEEAEAEKEKAAREKEEEKEEAKEEEKEKEKKEKAEEKKEE 
034360 000004 TST40: SCOPE 
4370 034362 052737 000010 172516 BIS #B1T3,MMR3 :TURN ON CSM ENABLE 
4371 034370 005037 177776 © CLR PSWw “MAKE SURE PSW PREVIOUS=CURRENT=KERNEL 
4372 034374 013737 000010 001204 MOV RESVEC,STMP3 SAVE TRAPS TO 10 VECTOR 
4373 034402 012737 034416 000010 MOV #1$, ,RESVEC “TRAPS TO 10 GO TO 1$ 
4374 034410 005237 177572 INC MMRO =TURN ON MEMORY MANAGEMENT 
4375 034414 007000 CSMO “CSM — RO 
4376 034416 013737 001204 000010 1S$: MOV $TMP3,RESVEC :RESTORE | TRAPS TO 10 VECTOR 
4377 034424 005037 177572 CLR MMR :TURN OFF MEMORY MANAGEMENT 
4378 034430 022726 034416 CMP #1$,(SP)+ :SEE IF IT WAS AN EXPECTED T 
4379 034434 001403 BEQ “BRANCH AROUND ERROR CALL ‘re IT WAS 
4380 034436 022626 CMP (SP)+, (SP)+ =CORRECT STACK 
4381 034440 104041 ERROR +41 ILLEGAL CSM DID NOT TRAP TO 10 
4382 034442 000401 BR TST41 : BRANCH AROUND STACK CORRECTION 
4383 034444 005726 2$: TST (SP) + =CORRECT STACK 
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CKKTBDO 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 di 19 PAGE Ho. SEQUENCE 137 
TEST # 41 = TEST CSM INSTRUCTION - I-SPACE SUPERVISOR MOD 





4392 -SBTTL TEST # 41 ~ TEST CSM INSTRUCTION ~ I~SPACE SUPERVISOR MODE 5) 
FARA AERA AAAAERAEARAAAEAREREARAATAERAARAREAREAEARRAAEERREREREREREE EE L " 
“STEST 41 TEST CSM INSTRUCTION - I-SPACE SUPERVISOR MODE A\ 
ss “REE AEEKRAREARARAAAEAAETAEAEREEARARAREAREARARAREARARERERRKRKREKREREREEEEEEE AY 
;* THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) BA 
:* INSTRUCTION TO MAKE SURE CSM IS LEGAL WHEN ENABLED Bl 
;* IN SUPERVISOR MODE, AND FOR A CHECK OF THE PARAMETERS 8B! 
:* PUSHED ON THE STACK. 

; RRA ERR RE EEE ERE RE REREER EERE Ee Bl 
4 s “REREEEKEEEAEEARAAEEAEKARAATEKCEAAEKEEEAARARARAEKEEKREREARAREEAARAARAEERAEKREREREEE BI. 
034446 000004 TST41: SCOPE BI 
4393 036630 012700 052525 MOV #52525, RO :SET UP RO 6) 
4394 034454 004737 002060 JSR APRINIT :RESET ALL MEMORY MANAGEMENT REGISTERS BI 
4395 034460 012737 172260 #600, SDPARO ;1F WE GO TO D-SPACE, FLAG AS AN ERROR BI 
4396 rH 012737 000032 172516 MOV #32,.MMR3 ENABLE CSM, 22-BIT, SUPERVISOR SPACE BI 
4397 034474 012737 040000 035320 MOV #40000 PCSMPS :SET PRECSM PS IN LOCATION BI 
4398 034502 012706 000700 MOV #SUPSTK,SSP :SETUP SUPERVISOR STACK POINTER BI 
4399 034506 004737 034530 JSR PC, CSMSUB : TEST CSM INSTRUCTION SUBROUTINE BI 
4400 034512 000000 -WORD 0 ; 0 ADDED TO ADDRESS OF TRAP VECTOR BI 
4401 034514 005037 177776 CLR PSw :RETURN TO KERNEL MODE BI 
4402 036250 005037 172260 CLR SDPARO :RESET SDPARO TO FIRST 4k BI 

4403 034524 000137 035344 JMP TST42 ; JUMP OVER THE CSM SUBROUTINE 
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SUBROUTINE TO CHECK OPERATION OF 


000340 
035324 


177572 


000012 
034622 


000340 
177572 


000412 
035320 
037777 


040000 


035334 
177572 
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177776 


000010 


177776 


035334 
035334 


177572 


035334 
035316 


177572 


CSMSUB: 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


8$: 
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AN EXECUTABLE CSM INST‘N 


SEQUENCE 138 


i TSP RS TO CHECK OPERATION OF AN EXECUTABLE CSM INST'N 


P) 
MOV #340,PSw 

MOV RO. PCSMRO 
MOV (R5)+,R4 

MOV R5 RETURN 
MOV #5$,DOWELP 

MOV #28. RESVEC(R4) 
MOV #1$.$LPERR 
BIS PCSMPS ,PSW 
MOV SP, PCSMSP 
SUB #6,PCSMSP 
INC MMRO 

CSMO 

MOV #RESVEC+2,RESVEC 
CMP #2$, (SP) 

BNE 4 

MOV #340,PSW 

CLR MMR 

CMP (SP) +, (SP)+ 
ERROR +51 

JMP @RE TURN 

MOV SSP,ACSMSP 
MOV (SP5)+,CSM1ST 
MOV (SP) +, CSM2ND 
MOV (SP)+. CSMSRD 
JMP aDOWELP 

MOV PCSMPS .R3 
BIC #37777 RB 
CLC 

ROR R3 

ROR 

BIS #B1T14,R3 
MOV PSW,ACSMPS 
BIC #7777, ACSMPS 
CMP R3,ACSMPS 
BEQ 4 

CLR 

ERROR +4 

BIS IT00,MMRO 
MOV PSwW,ACSMPS 
BIC #37777,ACSMPS 
CMP SUPERM.ACSMPS 
BEQ ag 

MOV #6$ ,DOWELP 
CLR MMRO 

MOV ACSMPS ,R3 
BIS #B1T14 RS 
BIC #BIT15, 
ERROR +42 

BIS #81T00,MMRO 
MOV SWR4 

BIC #147777. RG 
ASL R4 

ASL R4 

MOV PCSMPS ,R2 
BIC #37777 .R2 


:PUT RETURN ADDRESS INTO R5 
MODE 


TO R4 

:SET RETURN LOCATION ADDRESS TO Looe! tone 1 shamed 
;MOVE ADDRESS FOR INITIAL TESTING TO DOWELP 
;SETUP TRAPS TO 1C VECTOR TO 2$ 

SETUP LOOP ON ERROR TO 1 

:PuT USER/ SUPERVISOR IN THE PSW 

:MOVE STACK pha be VALUE TO PCSM 

; SUBTRACT 6 FROM PCSMSP - wets if PUSHES ON STACK 
;TURN ON MEMORY MANAGEMENT 


ee oer TRAPS TO 10 VECTOR 
+SEE IF CSM ABORTED 
s;BRANCH IF IT DIDN'T TO EXECUTE TEST 
+ G0 er. TO KERNEL PRIORITY 7 
OFF MEMORY MANAGEMENT 
SHOULD NOT 


EN IT HAVE 
O ADDRESS PRESTORED IN LOCATION RETURN 
: SAVE AFTER CSM a TER 


; S 
; JUMP TO LOCATION IN DOWELP 
T PRE-CSM PSW_IN R3 
“WIPE OUT ALL il <15:14>, 


15:12> 
SEE IF PSW STATUS BITS MATCHES CALCULATED VALUE 
;BRANCH Ryn ERROR CALL IF OK 
; TURN OFF MEMORY MANA 
:NOT SUPERVISOR MODE 
;MAKE SURE MEMORY MANAGEMENT IS ON 
:MOVE CURRENT PSW 


TO ACSMPS 
>CLEAR ALL BITS EXCEPT <15:14> 
; SEE M4 SUPERVISOR MODE 


H AROUND ERROR CALL IF OK 
SET oie FOR THIS CHECK TO DOWELP 
;TURN OFF MEMORY MANAGEMENT 
:MOVE sy aie TO R3 


: MODE 
:MAKE SURE MEMORY MANAGEMENT IS ON 
sMOVE CURRENT PSW TO 

; CLEAR AGL BITS ea sees 12> 
= MOVE <13:12> BITS IN 


CLEAR BITS 13 T0 0 
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SUBROUTINE TO CHECK OPERATION OF 


072 
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5 
5074 
| 5076 
64 035104 
ces 035110 
te? 038120 
468 035106 
4469 0351 
4470 0351 
4471 035142 
4472 035144 
4473 035152 
4474 035156 
4475 035160 
4476 035166 
4477 03517 
78 035174 
4479 035202 
4480 035210 
4481 035212 
4482 035220 
4483 035204 
4484 035032 
4485 035234 
4486 035242 
487 035250 
4488 035252 
4489 035260 
4490 035264 
4491 035266 
4492 035274 
4493 035276 
449% 035 
4495 035306 
9% 035312 
4497 
4498 035316 
4499 039520 
4500 035522 
4501 035324 
4502 035326 
4503 035 
4504 035332 
4505 035 
4506 035336 
4507 035340 
4508 035342 
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035234 
177572 
034704 
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AN EXECUTABLE CSM INST'N 


035316 
177572 
035322 
035316 


177572 
035316 
177572 
035330 
035316 


001176 


177572 
035332 


035316 


035316 
143634 


10$: 


12$: 


14$: 


16$: 


18$: 


R2,R4 

10 

#8$ .DOWELP 
MMR ( 


+43 
1T00,MMRO 


#B 
ACSMSP ,PCSMSP 
12$ 


#108 , DOWELP 
+44 
#81T00,.MMRO 
RO,CSMIST 
14$ 
#128 , DOWELP 
+45 
#81T00,MMRO 
#2$, CSM2ND 
#14$,DOWELP 
#2$,$TMPO 
+46 
#81T00,MMRO 
#17, CSM3RD 
#16$,DOWELP 
MMRO 
+47 
#5$,DOWELP 
#B1T09,aSWR 
19$ 


3 
S 
z 


0000 


of OOoooCoooooO 


SEQUENCE 139 


sSEE IF PREVIOUS MODE IS Ok 
CH AROUND 


ERROR CALL IF OK 
SET ie FOR THIS CHECK TO DOWELP 
; TURN OFF MEMORY MANAGEMENT 
:WRONG PREVIOUS 
;MAKE SURE 


MEMORY MANAGEMENT IS ON 
+SEE IF STACK POINTER VALUE WAS TRANSFERED 
CH AROUND ERROR CALL IF S 
:$E1 ore FOR THIS ace TO DOWELP 
N OFF MEMORY MANAGEMENT 
: INCORRECT STACK 
GEMENT IS ON 


SURE MEMORY MANA 
“COMPARE RO WITH THE ARGUMENT THAT WAS ON STACK 
‘IF EQUAL CH AROUND ERROR 
SET ADDRESS FOR THIS CHE CK TO DOWELP 
OFF MEMORY MANAGEMENT 

: INCORRECT ARGUMENT 

MAKE SURE MEMORY MANAGEMENT IS ON 
“SEE IF UPDATED PC WAS CORRECT 
‘BRANCH AROUND ERROR IF OK 
SET ADDRESS FOR THIS CHECK TO DOWELP 
= TURN OFF MEMORY MANAGEMENT 
:MOVE ase UPDATED PC TO $TMPO 


;MAKE SURE MEMORY MANAGEMENT IS ON 
7 SEE IF PSW M3: O> WERE CLEARED 
CH AROUND ERROR CALL IF OK 
SET ADDRESS FOR THIS CHECK TO DOWELP 
;TURN OFF MEMORY MANAGEMENT 
:BITS <3:0> SET IN PSW 
+SEE IF ANY ERRORS THIS TIME AROUND 
CH TO NORMAL RETURN JUMP IF NOT 
“SEE IF LOOP ON ERROR IS SET 
:BRANCH IF SO 
; JUMP BACK FOR LOOP ON ERROR 
; JUMP BACK TO RETURN ADDRESS IN LOCATION RETURN 


sLOCATION HOLDING ADDRESS TO SHORTEN POSSIBLE ERROR LOOP 
CATION TO STORE PRE-CSM PSW 

sLOCATION TO STORE PRE-CSM STACK POINTER 

:LOCATION TO STORE PRE-CSM RO VALUE 

sLOCATION TO STORE 1ST WORD POPPED AFTER CSM EXECUTION 

;LO E WORD POPPED AFTER CSM EXECUTION 

;LO D WORD POPPED AFTER CSM EXECUTION 

sLOCATION TO STORE POST-CSM PSW 

sLOCATION TO STORE POST-CSM STACK POINTER 


sLOCATION TO STORE VALUE OF PRESENT MODE=SUPERVISOR 
;LOCATION TO STORE RETURN ADDRESS OF THE CSMSUB 


a raee 11/44 MEM MGMT PRT B MACRO M1113 12-JAN-82 12:19 PAGE 106. SEQUENCE 140 
42 ~ TEST CSM INSTRUCTION = D-SPACE SUPERVISOR MODE 


4517 - SBTTL TEST # 42 = TEST CSM INSTRUCTION = D=SPACE SUPERVISOR MODE 


J RARER AERA AAERERKEEAERAERAREEEAREARRAREREKRERERAEREEE 


SS TEST 42 TEST CSM INSTRUCTION - D=SPACE SUPERVISOR MODE 

J EERE AAA EAE EAE AAEEEEEEREEREREERAERAEEREKEERKEEEEE 
: te THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 
: INSTRUCTION TO MAKE SURE CSM IS LEGAL WHEN ENABLED 
fe IN SUPERVISOR MODE, AND FOR A CHECK OF THE PARAMETERS 
PUSHED ON THE STACK. 
TTT IIIT TITTLE TELL LLL LLL LLL LLL LLL EE 
5 REAR EEEREEEEEEAREE EERE EEEEEEREKEEEEKEKEEEKKKKEEE 
§ 


ee So a Os Sota Se 


035344 000004 142: SCOPE 
4518 035346 01 737 000032 172516 MOV #32,.MMR3 :ENABLE 22-BIT, CSM, SUPERVISOR 
4519 035354 012737 040000 03 320 MOV #40000,PCSMPS :LOAD PRECSM LOCATION 
4520 035 05 137 040000 177776 BIS #B1T14,PSW :GO TO SUPERVISOR MODE 
4521 035 012737 172240 #600, SIPARO :I1F WE GO TO I-SPACE, FLAG IT AS AN ERROR 
45 é 0 5376 (01 706 000700 MOV #SUPSTK,SSP :SETUP SUPERVISOR STACK POINTER 
45 5402 004737 034530 JSR p :TEST CSM INSTRUCTION SUBROUTINE 
4524 0354 , 60000 : 60000 ADDED TO ADDRESS OF TRAP VECTOR 
4525 03541 itt 177776 CLR PSW :RETURN TO KERNEL MODE 
4526 035414 005037 172240 CLR SIPARO “RESET SIPARO TO FIRST 4k 
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[TEST @ 43 - TEST CSM INSTRUCTION © 1USPACE USER MODE 





«4535 .SBTTL TEST # 43 - TEST CSM. INSTRUCTION = I~SPACE USER MODE 
{AAA AAAAAAAAAAEARAAAEREARERAAEAAEREREAERARERERERAEREERAHARERE REE A 
| SSTEST 43 TEST CSM INSTRUCTION - I-SPACE USER MODE Kt 
23 ERE EARERARAREREREREEAERAREAARAAREARERAEARAAREEEREEEEEREEEOE Kt 
| :* THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) Kt 
| :* INSTRUCTION TO MAKE SURE CSM IS LEGAL WHEN ENABLED Kt 
| ;* IN USER MODE, AND FOR A CHECK OF THE PARAMETERS KL 
| :* PUSHED ON THE STACK. Kt 
: :  eebeeReRekekeekeeeeeetteteteteeeeeeeereneeenneaeeanereeeererere Kt 
‘ “EAE EARAEAAAEAEAKKAREARAEAEAEAREKEAKRARARAKRARAEKRARAARAREEEEKRERKEEEEREEEE Ke 

035420 $143: SCOPE 
45 0 4 MOV sENABLE 22-BIT cs ouser 

45 MOV #140000" PCSMPS :LOAD PRECSM LOCA K] 
45 4 BIS #140000 PSW *GO TO U MODE K] 
4539 035444 MOV #600, UDPARO :IF WE GO TO D-SPACE, FLAG AS AN ERROR KI 
4540 035452 MOV § #USESTK, SSP ;SETUP USER STACK POINTER KI 
4541 3496 JSR PC, CSMSUB : TEST CSM INSTRUCTION SUBROUTINE K) 
434¢ 462 .WORD 0 : 0 ADDED TO ADDRESS OF TRAP VECTOR KI 
4543 035464 CLR PSW ;RETURN TO KERNEL MODE KI 
4544 035470 CLR UDPARO =RESET UDPARO TO FIRST 4k kK] 
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T # 44 = TEST CSM INSTRUCTION ~ D-SPACE USER MODE 


172 


140000 035 


034530 


177776 
177640 


177 


.SBITL TEST # 44 ~ TEST CSM INSTRUCTION - D=SPACE USER MODE 
{AAR AEA RAE AERA AER ERAREAAEEAREREEREERKERERRERERE REE He 
TRTEST 44 TEST CSM INSTRUCTION - D=SPACE USER MODE 

5 REE ARERR EEE REEEEEEEEEKEKKRKREKEKEKREKE Ee 
* THIS TEST CHECKS OUT THE CSM (CALL SUPERVISOR MODE) 

* INSTRUCTION TO MAKE SURE CSM IS LEGAL WHEN ENABLED 

. IN USER MODE, AND FOR A CHECK OF THE PARAMETERS 

Z PUSHED ON THE STACK. 

i 


kEKKRERERRR RARE RRR EERE ERE RRRR EERE Eee 


li die tae ta ye 


144: SCOPE 
MOV :ENABLE 22-BIT, CSM USER 
MOV #146000, PCSMPS LOAD PRECSM LOCATION 


MOV #600 ,UIPARO i IF I~SPACE, rene AS AN ERROR 
MOV WUSEST Kk. resp iy USER STACK POINTER 

JSR PC, CSMSUB ;TEST CSM INSTRUCTION SUBROUTINE 

~ e ‘ : 0 ADDED TO ADDRESS OF TRAP VECTOR 


SW sRETURN TO KERNEL MODE 
CLR UIPARO RESET UIPARO TO FIRST 4k 


Se 
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13 
TEST # 45 = TEST CSM INSTRUCTION - MODE TESTS 
4567 .SBTTL TEST # 45 - TEST CSM INSTRUCTION = MODE TESTS 


FL AAA AAA EAAAEAAAAAAAAAEAAAREEEREEKEKREHE RARE Ee 


:*TEST 45 TEST CSM INSTRUCTION - MODE TESTS 


THIS TEST EXECUTES THE CSM INSTRUC 


TION LEGALLY IN MODES 1 THROUGH 7, 


> CHECKING FOR PROPER REGISTER INCREMENT/DECREMENT AND THAT ARGUMENT 
ie CONTENTS IS PROPERLY ON THE STACK 
FF RAE EEEEEEEREKEEKEKEEREEEEEREEKEEKEEKEKEEKEHEKKKEKKEEKREKE 
035542 000004 TST45: SCOPE 
4568 035544 012737 040000 177776 MOV #40000,PSw :G0 TO SUPERVISOR MODE 
4569 035552 016737 000032 172516 MOV #32 ,.MMR3 sENABLE 22-BIT, CSM, SUPERVISOR 
4570 035560 012701 00000 MOV #7,R1 “DO 7 MODES 
4571 0359 012702 035744 MOV #CSMINS,R “LOAD CSM INSTRUCTION POINTER INTO R2 
4572 035570 012703 035770 MOV #REGCHG.R :LOAD REGISTER CHANGE TABLE POINTER TO R3 
4573 035574 012704 036006 MOV #REGDAT RG “LOAD ARGUMENT EXPECTED STACK POINTER TO R4 
4574 035600 012737 035622 000010 MOV #3$,,RESVEC =SET RETURNS TO 3$ 
4575 035606 011237 03561 1$: MOV (R2) ,2$ “MOVE CSM INSTRUCTION TO TEST LOCATION 
4576 035612 012700 035764 MOV #REGLAB,RO “RESET RO 
4577 035616 000000 000000 2$: .WORD 0,0 :1ST WORD FOR CSM INSTRUCTION, 2ND FOR MODES 6 & 7 
4578 035622 011637 001200 3$: MOV (SP) ,$TMP1 [MOVE ARGUMENT WORD TO 
4579 035626 021300 CMP (R3) .RO “SEE IF REGISTER CHANGED PROPERLY 
4580 035630 001407 BEQ “BRANCH IF OK 
4581 035632 062706 000006 ADD #6,SP :POP STACK FOR POSSIBLE ERROR LOOPING 
4582 035636 011337 001176 MOV (R3) , $TMPO “MOVE EXPECTED DATA TO $TMPO 
4583 035642 104052 ERROR +52 :CSM FAILED TO INCREMENT/DECREMENT REGISTER PROPERLY 
4584 035644 162706 000006 SUB #6,SP sRESTORE STACK POINTER TO PRE-ERROR STATE 
4585 035650 021437 001200 4$: CMP (R4) ,STMP1 :SEE IF CORRECT ARGUMENT WAS LOADED 
4586 035654 001417 BEQ 5$ “BRANCH IF OK 
4587 035656 012637 001204 MOV (SP) +, $TMP3 =POP STACK FOR POSSIBLE ERROR LOOPING 
4588 035662 012637 001206 MOV (SP)+,$TMP4 
4589 035666 012637 001210 MOV (SP)+,$TMP5 
4590 035672 011437 001202 MOV (R46), STMP2 :MOVE EXPECTED DATA TO $TMP2 
4591 035676 104053 ERROR +53 :CSM FAILED TO PUT PROPER ARGUMENT ON STACK 
459¢ 035700 013746 001210 MOV STMP5 ,~(SP) sRESTORE STACK - NO ERROR LOOPING 
459 035704 013746 001206 MOV $TMP4,~(SP) 
4594 035710 013746 001204 MOV $TMP3,~-(SP) 
4595 035714 022225 5$: CMP (R2)+, (R3)+ : INCREMENT R2 AND R3 TO NEXT LOCATIONS 
4596 035716 005724 TST (R4)+ : INCREMENT R4 TO NEXT LOCATION 
4597 0 3720 062706 000006 ADD #6,SP =POP STACK OF CSM PUSHES 
4598 035724 077150 SOB R1,1$ :SUBTRACT 1 AND BRANCH IF NOT ALL MODES CHECKED 
4599 035726 005037 177572 CLR MMRO :TURN OFF MEMORY MANAGEMENT 
4600 035732 005037 172516 CLR MMR3 “CLEAR MMR3 
4601 035736 005037 177776 CLR PSW -RETURN MODE BACK TO KERNEL 
4602 035742 000430 BR SEOP -SKIP OVER TABLES AND LOCATIONS 
4603 035744 007010 007020 007030 CSMINS: .WORD (CSM1,CSM2,CSM3,CSM4,CSM5,CSM6,CSM7 
4604 035762 035766 .WORD REGLAB+2 
4605 035764 035762 REGLAB: .WORD REGLAB-2 
4606 0 5766 052525 “WORD 52525 
4607 035770 035764 035766 035766 REGCHG: .WORD REGLAB,REGLAB+2,REGLAB+2,REGLAB-2,REGLAB-2,REGLAB,REGLAB 
4608 0 035762 035762 035766 REGDAT: .WORD REGLAB-2,REGLAB-2,REGLAB+2,REGLAB+2,52525,REGLAB~2 ,REGLAB+2 


TL - 
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000077 
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SEQUENCE 
.SBTTL END OF PASS ROUTINE 
{REAR AAA AAA EAEAAEAEEAEEEEEEAREAARAAEAREREREEARKEEREKRRERRKREEE EEE 
: S INCREMENT THE PASS NUMBER ($PASS) 
:*TYPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yvyryyy'' 
= *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
-eIF SW12=1 INHIBIT TRACE TRAP 
-*]F THERES A MONITOR GO TO IT 
:*]F THERE ISN'T JUMP TO LOOP 
SEOP: 
SCOPE 
LR $TSTNM :: ZERO THE TEST NUMBER 
INC $PASS is INCREMENT THE PASS NUMBER \ 
BIC #100000,$PASS :;:DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ : LOOP? 
SEOPCT: .WORD 1. 
BGT $DOAGN YES 
MOV (PC)+,a(PC)+ RESTORE COUNTER 
$ENDCT: .WORD 1 
SEOPCT 
BIT #77, $PASS :>>ARE WE TO PRINT THIS PASS? :DPMOO2 
BEQ 1000$ =>>BRANCH IF WE ARE = DPMOO2 
TST SERTTL 7>>TEST SERTTL FOR ANY ERRORS THIS PASS ;:DPMOO2 
on BEQ $GET42 :>>BRANCH IF NO ERRORS THIS PASS : DPMOO2 
TYPE ,65$ : 3 TYPE ASCIZ STRING 
R 4$ ::GET OVER THE ASCIZ 
jie: ASCIZ <12><15>/END PASS #/ 
MOV $PASS,-(SP) 2 SAVE SPASS FOR TYPEOUT 
:: TYPE PASS NUMBER 
TYPDS 3:60 TYPES DECIMAL ASCII WITH SIGN 
TST SERTTL :>>ANY ERRORS THIS PASS? :DPMOO2 
BEQ $GET42 :>>BRANCH OVER 'TOTAL’ REPORT IF NONE <=DPMOO2 
TYPE ,67$ i: TYPE ASCIZ STRING 
aK 6$ :GET OVER THE ASCIZ 
i3678 -ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
MOV SERTTL,~(SP) ; 3 SAVE SERTTL FOR TYPEOUT 
AL NUMBER OF ERRORS 
TYPDS ::GO TYPE=-DECIMAL ASCII WITH SIGN 
TYPE $CRLF TYPE CARRIAGE RETURN, LINE FEED 
CLR $ERTTL >: CLEAR ERROR TOTAL 
$GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
BEQ $DOAGN ;;BRANCH IF NO MONITOR 
CLR ~(SP) URE THE ‘‘T'’ BIT IS CLEAR 
MOV WSCLR.T,-(SP) ::SETUP FOR AN RTI OR RTT 
BR $RTRN 560 DO AN RTI OR RTT TO LOAD THE PSW 
one ::WITH A CLEARED ''T’’ BIT 
MOV a#42,R0 :z, INSURE RO CONTAINS THE MONITORS 
Q $DOAGN : RETURN ADDRESS 
RESET CLEAR D 
SENDAD: JSR PC, (RO) ::G60 TO 0 
NOP :: SAVE RO 
NOP 33 


144 


SI! 


me 
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ee 
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(END OF PASS ROUTINE 


| 036260 000240 NOP > ;ACT11 S 
| 8 ¢: SDOAGN: S 
| 62 104400 TRAP ::PUSH OLD PSw AND PC ON STACK 5 
0 364 042716 000020 BIC #20, (SP) *:CLEAR THE ''T'’ BIT 
| 036270 032777 010000 142642 BIT #B1T12,aSWR *:RUN WITH TRACE TRAP? 
036 76 001005 BNE ::BR IF NO | 
| 0 005137 001310 COM $TBIT =:IS IT TIME FOR TRACE TRAP 
036304 100402 BM] 1$ >:BR IF NO 
| 036 036716 20 BIS #20,(SP) ::SET TRACE TRAP 
| 036312 012746 oe 850 1$: MOV WSLOOP,-(SP) | ::JUMP TO START OF TEST 
036316 000002 SRTRN: RTI > :RETURN=-THIS IS CHANGED TO 
SAN RTT’ IF “'RTT’' IS A LEGAL 
:: INSTRUCTION 
036320 $LOOP: 
036320 000137 a(PC)+ : sRETURN 
036322 020560 $RTNAD: .WORD LOOP 
036324 377 377 000 $ENULL: -BYTE -1,-1,0 ::NULL CHARACTER STRING 
4610 000001 "END 
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SYMBOL TABLE 






| . 
-ABASE = 000000 BITOO = 000001 DH14 013242 DT55 016010 KDPAR3= 17 S 
ACDW1 = 000000 BITO1 = 000002 DH15 013322 D157 016086 KDPAR4= 17 358 ii 
ACDW2 = 000000 BITO2 = 4 DH16 013362 EMTVEC= 000030 KDPARS= 172372 iT 
ACPUOP= 000000 BITO3 = 000010 DH17 013442 EM1 007 2¢¢ KDPAR6= 172374 J 
ACSMPS 035334 BITO4 = 020 DH2 012752 EM10 007631 KDPAR7= 172376 iT 
ACSMSP 035336 BITOS = 000040 DH20 013522 EM11 007701 KDPDRO= 17 320 T 
ADDWO = 000000 BIT06 = 000100 DH21 013562 EM12 007750 KDPDR1= 172322 T 
ADDW1 = 000000 BITO7 = 000200 DH22 013677 EM13 010022 KDPDR2= 172324 T 
ADDW10= 000000 BITO8 = 000400 DH24 013737 EM14 010073 KDPDR3= 172326 T 
ADDW11= 000000 BITO9 = 001000 DH26 013777 EM15 010154 KDPDR4= 172330 T 
ADDW12= 000000 BIT1 = 000002 DH27 014111 EM16 010237 KDPDRS= 172332 T 
ADDW13= 000000 BIT10 = 002000 DH30 014306 EM2 007562 KDPDR6= 172334 T 
ADDW14= 000000 BIT11 = 000 DH32 014362 EM21 010315 KDPDR7= 172336 T 
ADDW15= 000000 BIT12 = 010000 DH33 014401 EM22 010362 KERSTK= 001100 T 
ADDW2 = 000000 BIT13 = 020000 DH34 014441 EM23 010431 KIPARO= 172340 T 
ADDW3 = 000000 BIT14 = 040000 DH36 014532 EM24 010464 KIPAR1= 172342 T 
ADDW4 = 000000 BIT15 = 100000 DH37 014572 EM25 010523 KIPAR2= 172344 T 
ADDWS = 000000 BIT2 = 000004 DH40 014632 EM26 010570 KIPAR3= 172346 T 
ADDW6 = 000000 BIT3 = 000010 DH41 014703 EM27 010636 KIPAR4= 172350 T 
ADDW7 = 000000 BIT4 = 000020 DH42 015007 EM30 010713 KIPARS= 172352 T 
ADDW8 = 000000 BITS = 040 DH43 015047 EM31 010756 KIPAR6= 172354 T 
ADDW9 = 000000 BIT6 = 000100 DH44 015117 EM32 011021 KIPAR7= 172356 T 
ADEVCT= 000000 BIT7 = 000200 DH45 015157 EM33 011057 KIPDRO= 172300 T 
ADEVM = 000000 BIT8 = 000400 DHS5 015207 EM34 011135 KIPDR1= 172302 T 
AENV = 000000 BIT9 = 001000 DH57 015246 EM35 011216 KIPDR2= 172304 T 
AENVM = 000000 BPTVEC= 000014 DISPLA 001142 EM36 011432 KIPDR3= 172306 T 
AFATAL= 000000 CKSWR = 104410 DISPRE 000174 EM37 011327 KIPDR4= 172310 T 
AMADR1= 000000 MSG 61 DOWELP 035316 EM40 011372 KIPDRS= 172312 T 
AMADR2= 000000 CNTRLC 005302 DSWR = 177570 EM41 011457 KIPDR6= 172314 T 
AMADR3= 000000 CPSAVE 003266 DT1 015306 EM42 011523 KIPDR7= 172316 T 
AMADR4= 000000 CPUERR= 177766 DT10 =: 015.344 EM43 =—s-_—« 011566 KSP =%000006 | T 
AMAMS1= 000000 CR = 000015 DT12 015356 EM44 011633 F = 000012 T 
AMAMS2= 000000 CRLF = 000200 DT13 015374 EM45 011701 020560 | T 
= 000000 CSMINS 035744 DT14 015412 EM46 011740 MFPDLD 003 T 
AMAMS4= 000000 CSMSUB 034530 DT15 015430 EM47 012002 MFPDLP 002770 | T 
AMSGAD= 000000 CSMO = 007000 DT16 015442 EM50 016061 MFPDPS 002772 | T 
AMSGLG= 000000 CSM1 = 007010 DT17 015460 EM51 012070 MFPDTS 002746 T 
GTY= 000000 CSMIST 035326 DT2 015324 EMS 012126 MFPDVC 003 T 
AMTYP1= 000000 CSM2 = 007020 DT20 015476 EM5 012152 MFPDV1 033564 | T 
AMTYP2= 000000 CSM2ND 035330 D721 015510 EM54 =: 012217 MFPILD 002532 | T 
AMTYP3= 000000 CSM3 = 007030 DT22 0 3=s-—« 015526 EMSS =—-_—« 012263 MFPILP 002516 T 
AMTYP4= 000000 CSM3RD 035332 DT24 015540 EM56 4 3=—s-« 012327 MFPIPS 00 | T 
APASS = 000000 CSM4 = 007040 DT26 3=—s-—« 015552 EM57 = 012413 MFPITS 002 T 
APRINI 002060 CSM5 = 007050 DT27 015570 EM58 012466 MFPIVC 002622 | 
APRIOR= 000000 CSM6 = 007060 DT30 015606 ERLOOP O0¢6e% MFPIV1 027566 | 
APTCSU= 000040 = 007070 DT32 013620 ERPREP 002444 MFPIV2 030164 
APTENV= 000001 DDISP = 177570 D134 015626 ERROR = 104000 MFPIV3 031674 
015642 ERRTYP 003650 MFPIV4 032304 T 
015654 ERRVEC= 000004 MFPIVS 032562 ; 
015664 GTSWR = 104407 MFPIV6 034036 
015700 HT = 11 MGMERR 016142 U 
015712 IBSAVE 003646 MGMFLG 016144 U 
015726 INIT 0666 MMRO = 177572 Ui 
015742 IOTVEC= 000020 MMR1 = 177574 
015754 KDPARO= 172360 eRe = 177576 
015766 KDPAR1= 172362 MMRS = 172516 
016000 KDPAR2= 172364 MMVEC = 000250 
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MTPILD 002676 SDPDRO= 172220 SW5 == 000040 TYPDS = 104405 SCKSWR reyes 
MTPILP 002654 SDFDRI= 172222 SW6 = 000100 TYPE = 104401 SCLR.T o 24 
MTPIPM 002656 SDPDR2= 172224 SW7 = =: 000200 TYPOC = 104402 SCMTAG 1100 
MTPITA 002720 SDPDR3= 176566 SW8 = = 000400 TYPON = 104404 = 000006 
MTPITS it a4 DPDR4= 1722350 S = 001000 TYPOS = 104403 = 000014 
MTPIVC 4s SDPDR5= 17SSee TBIT = 000020 UDPARO= 177660 $SCMS = 000006 
MTPIV1 14 DPDR6= 172234 TBITPS 001274 UDPAR1= 177662 $ = ores 
MTPIV 260 SDPDR7= 172236 TBITVE= 000014 UDPAR2= 177664 SCNTLC 001312 
MTPIVS 033022 SIPARO= 172240 001254 UDPAR3S= 177666 SCNTLG 005253 
MTPIV4 033242 SIPARI= 172242 TIMERR 016070 UDPAR4= 177670 SCNTLU Op age6 
NDFLAG 002242 SIPAR2= 172244 TIMFLG 016072 UDPAR5= 177672 00125 
NODSPA 002232 SIPARS= 172246 TKVEC = 000060 UDPAR6= 177674 SCRLF 166 
PATCH 016232 SIPARS= 172250 002356 UDPAR7= 177676 SDBLK 006762 
PBAHI 001 SIPARS= 172252 TON 02412 UDPDRO= 177620 Op ote 
PBALO 001 SIPAR6= 172254 TPVEC = 000064 UDPDR1= 177622 SDEVCT 0012 
PCSMPS 035320 SIPAR7= 172256 01260 UDPDR2= 177624 SDOAGN 036262 
PCSMRO 035324 SIPDRO= 172200 TRAPPS 001262 UDPDR3= 177626 SDTBL 006752 
PCSMSP 035322 SIPDR1= 172202 TRAPVE= 000034 UDPDR4= 177630 SENDAD 036252 
PFECDF 004302 SIPDR2= 172204 TRIVEC= 000014 UDPDR5= 177632 SENDCT 036054 
PFECDH 004242 SIPDR3= 172206 TS 20704 UDPDR6= 177634 SENULL 036324 
PFECDT 004272 SIPDR4= 172210 TST10 23160 UDPDR7= 177636 SENV 001244 
PFECEM 004202 SIPDR5= 172212 TST11 023462 UIPARO= 177640 SENVM 3 001245 
PFECWS 004172 SIPDR6= 172214 TST12 023552 UIPAR1= 17764 036024 
PIRQ = 177772 SIPDR7= 172216 TST13. = 023742 UIPAR2= 177644 SEOPCT 
PIRQVE= 000240 SRO = 177572 TST14 024256 UIPAR3= 177646 SERFLG 001103 
PRO = 000000 SR1 = = _- 177574 TST15) = 0252354 UIPAR4= 177650 1 
PR1 = 000040 SR2 = 177576 TST16 26272 UIPAR5= 177652 SERROR 003270 
PR2 = 000100 SRS = 172516 TST17 §=—.026542 UIPAR6= 177654 SERRPC 001116 
PRS = 000140 SSP =%0000 TST 021222 UIPAR7= 177656 SERRTB 601320 
PR4 = 000200 STACK = 001100 TST20 027016 UIPDRO= 177600 SERTTL 1 
PRS = 000240 ST 0200 TST21 027232 UIPDR1= 177602 ESCAP 001212 
PR6 = 0003 STKLMT= 177774 TST22 027634 UIPDR2= 177604 00124 
PR7 = 000 ERM 0 TST23 030232 UIPDR35= 177606 SETEND 001254 
PS = 177776 = TST24 030 UIPDR4= 177610 SFATAL 001226 
PSW = = 177776 001140 TST25 031326 UIPDR5= 177612 SFFLG 006242 
PWRMSG 007460 SWREG 000176 TST26 §=©031742 UIPDR6= 177614 SFILLC 001156 
PWRVEC= 000024 S = 000001 TST27 032352 UIPDR7= 177616 SFILLS 001155 
RDCHR = 104411 SWOO = 000001 TST3 021456 USESTK=_000600 001120 
RDLIN = 104412 SWOT = 000002 TST30 032636 USP _=%000006 SGDDAT 001124 
REGCHG 035770 SWO2 = TST31 033042 IRT1 001276 $GET42 paeeee 
REGDAT 036006 SWO5 = 000010 TST32 0335262 SR6 007256 SGTSWR 004356 
REGLAB 035764 SWO4 = TST35 © 033332 WASSRO 001264 = 000000 
RESREG= 104414 SWOS = 000040 TST34 033632 WASSR1 001266 SHIBTS 000204 
RESVEC= 10 SWO6 = 000 TST35 = 0344104 WASSR2 001270 ‘SICNT 001104 
RETURN 035342 SWO7 = 000200 TST36 4 ©034174 WASSRS 001272 SILLUP 007452 
R6 =%000006 SWO8 = 000400 TST37 §©034266 IT = 000100 SINTAG 001135 
= SWO9 = 021652 SAPTHD 000204 SITE 001114 
SAVREG= 104413 SW1_ == 000002 TST40 §=—6.034360 SATYC 006022 $L 001222 
SCOPE = SW10 = 002000 TST41 034446 SATY1 005776 SLFLG 006241 
SDPARO= 172260 SW11 = TST42 035344 SATYS 006004 036320 
SDPAR1= 172262 SW12 = 010000 TST435 035420 SATY4 SLPADR 001106 
SDPAR2= 172264 SW13 = 020000 TST44 035474 SAUTOB 001134 SLPERR 001110 
SDPAR3S= 172266 SW14 = 040000 TST45 035542 SBDADR 122 001224 
AR4= 172270 SW15 = 100000 TST5 022126 SBDDAT 001126 000206 
SDPARS= 172272 SW2 = 000004 TST6 022406 SBELL Oh Sie SMFLG 006240 
SDPAR6= 172274 SW3 == 000010 TST7 022566 SBIN 006316 W 005271 
AR7= 172276 S = 104406 SCHARC 005772 SMSGAD 001240 


000020 TYPBN = 


ccoecqecccrcccrcecrcerrere: 
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SMSGLG 1242 SQUES 001220 scene OO s048 STMP4 001 001310 $TYPE 095432 
SMSGTY 1224 SRDCHR OO%8 ETUP= 6s ET 7” . STYPE 5644 
S™SWR 5260 SRDLIN 004760 seiu = STYPEX 5774 
SMXCNT 001 $RDSZ = 000010 $SVLAD 003216 sit STYPOC 4 
SNULL 001154 SRE 001160 SSVPC = STPFLG SEE STYPON 
SNWTST= $RE 001162 $SWR = 173400 TPS 001150 $STYPOS 006320 
SOCNT ee 42 SREG1 DB 9, SSWREG 001246 RAP is 6 IT 001236 
SOCTVL 007170 SREG 0011 = 000000 $TRAP2 7230 1T™ 
ope36 SREG 001170 $TBIT 001310 TRP = 015 SUSWR 1250 
00325 $RE 001172 $STESTN 001230 STRPAD 007242 SXOFF = 
SPASS 00123 S$REGS 001174 TKB 001146 S$TSTM 000210 $XON = 49 1 
SPASTM 21 SRESRE 007030 $TKS 001144 STSTNM 001102 SXTSTR 003054 
SPWRAD 0074 SRT 036322 STMPO 001176 S$TTYIN 005236 $$GET4= 000001 
SPWRODN 7274 SRTRN 036316 $TMP1 001200 TY 006244 SOFILL 006543 
SPWRMG 7430 SSAVRE 006772 $TMP 001202 $TYPDS 006546 -$X = 000204 
SPWRUP 007346 SSAVR6 007456 $STMP 001204 


- ABS. 036330 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 55080 WORDS ( 216 PAGES) 
DY NAMIC MEMORY : 20034 WORDS ( 77 PAGES) 
ELAPSED TI 


ME : 
CKKTBD.BIN, CKKTBD/CR/~SP/NL : TOC=CKKTBD.MLB/ML ,CKKTBD.P11 


MMW 


he Pe 





PAM OF Or OO 


a 


yellCUDMD 


PARA RPM KKFKrKSHKVYEKES Vwwwm tel 


AW 


G 12 
_CKKTBD CREATED BY MACRO ON 12-JAN-82 AT 12:24 PAGE 1 


| SEQUENCE 149 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL V REFERENCES 
ABASE = B-1825 
ACDWI == 1249 
ACDW2 = = 000000 20-1249 
ACPUOP = ¢ -1249 20-1249 
ACSMPS 0 7-3 27 #105=4437 §=*105-4438 =: 105-4439 9 105-4444 9#105-4445 9105-4446 38105-4450 #105-4505 
ACSMSP 035 54-2018 *105-4426 105-4467 #105-4506 
ee nest 
ADDWIO = 20-1949 
ADDW11 = 000000 20-1249 
pre eed = 000000 0-1249 
ADDW15 = 000000 0-1249 
ADDW14 = 000000 20-1249 
ADDW15 = 000000 20-1249 
—— = 000000 20-1249 
ADDWS = 000000 20-1249 
ADDWS4 = 000000 20-1249 
ADDWS = 000000 20-1249 
ADDW6 = 000000 20-1249 
ADDW? == 000000 20-1249 
ADDWS = 000000 20-1249 
ADDW9 = 000000 20-1249 
ADEVCT = 000000 20-1249 20-1249 
ADEVM = 000000 20-1249 
AENV = 000000 20-1249 20-1249 
AENVM = 000000 20-1249 = 20-1249 
AFATAL = 000000 20-1249 20-1249 
AMADR1 = 000000 20-1249 
AMADR2 = 000000 20-1249 
AMADRS = 000000 20-1249 
AMADR4 = 000000 20-1249 
AMAMS1 = 000000 20-1249 
AMAMS2 = 000000 20-1249 
AMAMSS = 000000 20-1249 
AMAMS4 = 000000 20-1249 
AMSGAD = 000000 20-1249 20-1249 
AMSGLG = poles 20-1249 20-1249 
Siiny 2B a igtg ane 
AMTYP2 = 20-1249 
AMTYPS = 000000 20-1249 
AMTYP4 = 000000 20-1249 
APASS) = $0 1693 20-1249 
APRINI 060 #27-1532 = 58-2126 79-3360 104-4394 
APRIOR = 20-124 
APTCSU = pponae 43-1903 #44-1904 
APTENV = 1 37-1787 43-1903 44-1904 #44-1904 
APTSIZ = 000200 #44-1904 58-2106 
APTSPO = 000100 43-190 44-1904 #44-1904 
G = 20-1249 20-1249 

ATESIN = 20-1249 20-1249 

It = 20-1249 20-1249 
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SEQUENCE 154 

SYMBOL CROSS REFERENCE CREF 01 

SYMBOL VALUE REFERENCES 

KDPDRO = 172320 #15-1198 

KDPDR1 = 17S35¢ #15-1198 73-2857 *74-3011 

KDPDR2 = 172324 #15-1198 73-2858 we 9 HL 

KDPDR35 = 176368 #15-1198 *73-2859 *74-301 

KDPDR4 = 172330 #15-1198 *77=3310 *89-3965 +*95-4140 96-4173 

KDPORS = 172332 #15-1198 . 

KDPDR6 == 172534 #15-1198 

KDPDR7? = 172336 #15-1198 7-153 

KERSTK = 001100 #15-1211 62-2305 64-2362 4-236 64-2379 65-2433 65-2437 65-2450 
67-2570 7-257 68-2636 68-2658 68-2684 70-2741 71-2798 74-3177 
79-3371 81-3473 85-3783 ~384 87-3873 

KIPARO = 172340 #15-1198 27-1547 

KIPAR1 = 172342 #15-1198 

KIPAR2 = 172344 #15-1198 

KIPARS = 172346 #15-1198 *60-2152 +*66-2501 

KIFAR4 = 172350 #15-1198 *60-21535 +*66-2502 *70-2730 *79-3362 

KIPARS = 172352 #15-1198  *67=2545 

KIPAR6 = 172354 #15-1198 

KIPAR? = 172356 #15-1198 27-1557 

KIPDRO = 172300 #15-1198 27-1535 

KIPDR1 = 172302 #15-1198 

KIPDR2 = 172304 #15-1198 

KIPORS = 172306 #15-1198 *64-2355 *66-2503 74-3014 +*74-3176 

KIPDR4 = 172310 #15-1198  *33-1732 = 33-1736 = *60-2163 = 61-2234 = *64-2360 839 *65-2431 39 * 66-2504 
*67-2546 *67-2615 *70-2732 *70-2762 *73-2856 *74-3010 *79-3366 *79-3434 
*81-3535 89-3972 +*89-4003 *96-4181 *96-4214 98-4246 +*98-4279 

KIPORS = 172312 #15-1198 64-2356 67-2547 *%*67-2616 

KIPDR6 = 172314 #15-1198 

KIPDR7 = 172316 #15-1198 

KSP =%000006 #15-1205 28-1591 *28-1592 +*28-1593 28-1604  +*28-1605 +*33-1731 +*39-1790 
* 39-1843 9-1845 +%39-1846 *39-1850 +*39-1851 +*39-1857 39-1859  +*39-1860 
«39-1 *39-1870 *39-1871 *56-2061 +*56-2062 56-2063 *56-2067  *56-2068 
*57~2088 57-2089 *57-2095 *57-20 *58-2110 2362 64-2366 +%64-2379  +%64-2401 
#64-2402 64-2410 64-2411 65-243 #65-2437 %*65-2450 65-2472 65-2473 +*65-2481 
*65=2482 +%66-2514  %67-2570 +*67-2575 i 36 68-2658  +*68-2684  +*70-2741 1-2792 
71-2793 = *71-2798)3=— *74-3177 = 77-333 «77-3319 79-3571 79-3373 80-3438  *80-3439 
*80-3445  +*80-3446 81-3473 pe de 9H *82-3539 82-3540 *82-3546 +*82-3547  +*83-3567 
*83-3572 %83-3578 83-3647 *83-3648  +*85-3654 +*83-3655 84-3662  +*84-3667  *84-3673 
*84-3744 84-3745 84-3751 “oe. 3585 85-3778  +*85-384 ~3848  +*86-3849  +*86-3855 
*86-3856 7~3868 *88-3938  *88-3939 +*88-3945 88-3946 *90-4012 +*90-4013 +*90-4016 
*90-4017 *95-4143 95-414 95-4145 95-4151 = #954155 = #97-4222 = 97-4223) # 97-4226 
"97-4227 = 99-4286 =. 99-4287 = 99-4290 = 99-4291 

LF = 000012 #15-1197 43-1903 435-1903 

LOOP 020560 #58-2109 110-4609 

MF PDLD 34-1767 %34-1768 #34-1774 

MFPDLP 002770 #34-1770 34-1781 96-4183 

MF PDPS 002772 #34-1771 = *96-4184 

MFPDTS 002746 #34-1765 96-4187 96-4194 96-4201 96-4207 

MFPDVC 304 34-177 434-1783 *96-4185 

MFPDV1 033564 96-4185 #97-4219 

MFPILD 002532 *32-1678  +%32-167 #32-1687 

MFPILP 002516 #32-1683 32-1698 79-3384 81-3485 85-3792 87-3883 89-3974 98-4248 
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PAGE 7 
SEQUENCE 155 
CREF vO01 
*81-3486 *85-3793 
79-3396 79-3402 
81-3509 81-3517 
85-3831 85-3838 
89-3978 89-3985 
«79-3388  +*81-3488 
#82-3539 
486-3848 
#88-3938 
34-1775 #57-2079 
66-2529 67-2617 
84-3676 85-3779 
*58-2122 
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«73-2882  *73-2887 
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_CKKTBD CREATED BY MACRO ON 12-JAN-82 AT teags PAGE 11 


| QUENCE 159 

“SYMBOL CROSS REFERENCE CREF O01 

SYMBOL Vv REFERENCES 

R = 34 #15-1197 *58-2106 *58-2106 

TRIVEC = 14 #15-1197 

TST1 04 #60-215 

TSTIO =» 0231 68-263 

TST11 02546 #69-269 

TST1 5 9-2715 #702729 

TST1 02374 471-2777 

TST14 024256 #73~2852 

TST15 025234 #74-3008 

TST16 ©=—-- 02627 #75-3186 

TST17 02654 #76-3242 

TST2 02122 461-2026 

Ts120 (87016 #77- 

TSTo1 723 #79~-3359 

TST2 027634 79=3435  #81-3462 

TST? 030252 81-3536 483-3563 

TST24 0 - #84-3657 

TST25 031326 84-3742  #85-3768 

TS126 031748 85-3845  #87-3858 

TST27 ss 003235 87-3935  #89-3962 

TST 021456 462-2294 

TST 032656 89-4005  #91-4033 

TST31 03304 91-4072  #93-4081 

TS132033¢ 93-4122  #95-4139 

TST33. «033 #96-4169 

TST 34 033632 96-4216  #98-4240 

TST35 034104 98-4280  #100-4300 

TST36 034176 100-4314 #101-4323 

TST37 «034266 101-4337 #102-4346 

TST4 021632 #64-2354 

TST40 ©=—-—- 034360 102-4360 #103-4369 

TST41 034446 103-4382 #104-4392 

TST42 035344 104-4403 #106-4517 

TST43 = 035420 #107-4535 

TST44 035474 #108-4553 

TST45 035542 #109-4567 

TSTS 022126 465-2427 

TST 0224 #66-2500 

TST 022566 #67-2544 

TYPBN = 104406 39-1838  #50-1910 

TYPDS = 104405 39-1832 41-1894 #50-1910 110-4609 110-4609 

TYPE = 104401 37-1787 = 37-1787 3=— 39-1789 «= 39-1810 = 39-1812 = 39-1815 = 39-1817 
39-1867 39-1872 40-1882 40-1882 40-188 0-1882 40-1882 
40-1882 40-1882 40-1882 40-1882 40-1882 40-1882 40-1882 
40-1882 41-1888 41-1892 43-1903 45-1905 46-1906 47-1907 
58-2107 58-2108 110-4609 110-4609 110-4609 

TYPOC == 104402 39-1797 39-1826 40-1882 41-1891 #50-1910 

TYPON = 104404 #50-1910 

TYPOS = 104403 #50-1910 

UDPARO = 177660 #15-1198 27-1566 = *107-4539 «107-4544 

UDPAR1 = 177662 #15-1198 

UDPAR2 = 177664 #15-1198 
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| CKKTBD CREATED BY MACRO ON 12-JAN-82 AT 12:24 PAGE 12 
| SEQUENCE 160 
SYMBOL CROSS REFERENCE CREF v0Q1 
SYMBOL VAL REFERENCES 
UDPAR3 = #15-1198 
UDPARS = 177670 #15-1198  *98-4241 
UDPARS = 177672 #15-1198 
AR6 = 177674 #15-1198 
UDPAR? = 177676 #15-1198 
UDPDRO = 177620 #15-1198 
UDPDR1 = 177622 #15-1198 *76-3243 *76-3254 
UDPDR2 = 177624 #15-1198 
UDPDR3 = 177626 #15-1198 
UDPDR4 = 177630 #15-1198 +*89-3967 *96-4175 *96=4215 
UDPDRS = 177632 #15~1198 
UDPDR6 = 177634 #15-1198 
UDPDR7 = 177636 #15-1198 
UIPARO = 177640 #15-1198 27-1565 *68-2640 68-2659 *108-4556 *108-4561 
UIPAR1 = 177642 #15-1198 
UIPAR2 = 177644 #15-1198 
UIPARS = 177646 #15-1198 *60-2156 *71-2779 
UIPARS = 177650 #15-1198 %60-2157 *71-2780 *81-3464 84-3659 
UIPARS = 177652 #15-1198 
UIPAR6 = 177654 #15-1198 
UIPAR7 = 177656 #15-1198 
UIPDRO = 177600 415-1198 27-1545 
UIPDR1 = 177602 #15-1198 
UIPDR2 = 177604 #15-1198 
UIPDR3S = 177606 #15-1198 *71-2781 *71-2832 *76-3255 *76-3289 
UIPDR4 = 177610 kathy *60-2165 +*61-2256 *71-2782 *84-3658  *87-3866  +*87-3934 +*89-3968  +*93-4083 
* _ 
UIPDRS = 177612 #15-1198 
UIPDR6 = 177614 #15-1198 
UIPDR7? = 177616 #15-1198 
USESTK = 0006 x ele, 58-2114 68-2644 68-2661 71-2800 81-3476 84-3673 87-3870 107-4540 
USP =%000006 #15-1207 *58-2114 +%68-2644 +*68-2661 *71-2789 *71-2800 81-3471 84-3664 84-3665 
*84~-36 87-3870 *87-3872 
VIRT1 001276 #20-1249 
WASR6 001256 #20-1249 54-2003 54-2004 %56-2063 *57-2089 
WASSRO 001264 #20-1249 *28-1594 28-1597 54-2004 54-2006 54-2008 54-2010 54-2013 54-2014 
54-2016 54-2017 54-2021 54-2023 54-2026 *57-2090 +*60-2185 60-2185 *61-2254 
61-2256 *62-2309  +64-238 oS 8 *64-2405 65-2451 65-2454  %65-2474  +%67-2576 
67-2578  +%67-2592 67-259 * o"¢ é 70-2746 = *71=2794 71-2813 344 *82-3541 
*83-3649  *84-3746 *86-3850  *88-3940 *90-4008 97-4219 99-4283 
WASSR1 1266 #20-1249 +*28-1595 54-2023 54-202 * 009 *97-4220 99-428 
WASSR2 001270 #20-1249 +*28-15 54-2004 54-200 54-2008 54-2011 54-2012 54-2013 54-2014 
54-2016 54-201 54~2023 54- 966 *57-2091  +*60-2184 60-2192 61-2255 61-2263 
*62-2303 62-2312 62-2314  %*64-2381 64-2590 +*64-24 *65-2452 65-2461 +%65-2475 
*66-2515 66-2516 *%*67-2549 67-2551 +%67-2558 67-2560 *67-2577 67-2581 *67-2596 
67-2597  +%67-2607 as 44 «70-2744 70-2750 = =*71=2795 71-2816 *80-3441 *82-3542 
*83-3650 +*84-3747 +*86-5851 +*88-3941 +*90-4010 *97-4221 99-4285 
WASSR3 001272 #20-1249 +*90-4011 
WBIT = 000100 #15-1209 
SAPTHD 000204 19-1248 #19-1248 
SASTAT = t#eeee 44-1904 44-1904 
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SCM3 
$CM4 
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SERRTB 
SERTTL 
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CROSS REFERENCE 
VALUE 


pense 
005776 
006004 


E SeeeSSsSs3 
= B8SSNSSRRES 


#44-1904 
#44-1904 


#44~-1904 
40-1882 


37-1787 


20-1249 
20-1249 


20-1249 
20-1249 


20-1249 
20-1249 
20-1249 
40-1882 
#40-1882 
40-1882 


37-1787 


39-1858 


110-4609 


#47-1907 
37-1787 


#110-4609 


37-1787 


36-1785 
*36-1785 


54-2024 


39-1807 
* 37-1787 


SEQUENCE 161 
CREF Vv 


40-1882 


=~ 
T 
—t— 2 


43- 


20-1249 


20-1249 
20-1249 


20-1249 
20-1249 
20-1249 
40-1882 
#40-1882 


38-1787 


#49~-1909 


110-4609 


58-2107 


1 609 
*36-1785 


36-1785 
* 37-1787 
54-2006 
54-2015 
54-2025 


38-1787 
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40-1882 


#20-1249 
#20-1249 
#20-1249 
#20-1249 
#20-1249 


40-1882 


38-1787 
43-1903 


#110-4609 


#110-4609 


44-1904 
44-1904 


36-1785 
36-1785 
37-1787 


54-2026 


38-1787 


F 13 


*58-2107 


#43-1903 


20-1249 
20-1249 


40-1882 


39-1789 
43-1903 


44-1904 
58-2106 


«36-1785 
*58-2106 
38-1787 


54-2027 


110-4609 


58-2106 
20-1249 
20-1249 


20-1249 
20-1249 


20-1249 
20-1249 


39-1812 
43-1903 


58-2107 


110-4609 


58-2106 
#20-1249 
#20-1249 


#20-1249 
#20-1249 


#20-1249 
#20-1249 


39-1817 


110-4609 


36-1785 


39-1795 


54-2029 


110-4609 


20-1249 
20-1249 


20-1249 
20-1249 


20-1249 
20-1249 


39-1872 


«37-1787 


39-1880 


54-2030 


*110-4609 


20-1249 
20-1249 


20-1249 
20-1249 


20-1249 
20-1249 


40-1882 


38-1787 


54-2003 


54-2031 
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| eames a . 


SYMBOL CROSS REFERENCE 01 
SYMBOL VAL perer NCES 
SESCAP 001212 #20-1249 +*36-1785 37-1787 37-1787 38-1787 38-1787 *58-2106 
SET 001244 #20-1249 
SE TEND 001254 19-1248 #20-1249 
SFATAL 001226 #20-1249 +%44-1904 
SFFLG 006242 #44~-1904 %44-1904 44-1904 44-1904 #44-1904 
SFILLC eases #20-1249 43-1903 43-1903 43-1903 
SFILLS 00115 #20-1249 43-1903 43-1903 
ADR 001120 #20-1249 
DAT 001124 #20-1249 
SGET42 ones 4 110-4609 110-4609 #110-4609 
SGTSWR 004356 #40-1882 50-1910 50-1910 
= 000000 15-1195 15-1195 15-1195 
SHIBTS 000204 #191248 
SICNT 001104 #20-1249 
ILL 007452 51-1911 51-1911 39451-1911 
SINTAG 001135 #20-1249 40-1882 40-1882 40-1882 40-1882 
SITEMB 001114 #20-1249 %*37-1787 37-1787 37-1787 *37-1787 37-1787 38-1787 38-1787 39-1792 
F 001222 #20-1249 38-1787 38-1787 40-1882 40-1882 40-1882 43-1903 43-1903 
SLFLG rg *44-1904 #44-1904 
ooP 036520 110-4609 #110-4609 
SLPADR 001106 #20-1249 %36-1785 *36-1785 36-1785 36-1785 36-1785 *58-2106 
SLPERR 001110 #20-1249 36-1785 *36-1785 36-178 36-1785 37-178 *58-2106 *60-2166 *%*61-2237 
#622295 %64-2361 *64-2365 *64-2371 65-2432 %65-2436 %*65-2442 66-2508  +%67-2548 
*67-2557 *67-25 *68-2634  +*69-2699 *70-2735 *71-2787 *73- «73-28 *73-2895 
*73-2909 *73-2920 *73-295 *73-2940 73-2950 *73-2960 *73-2971 *73-2980 *73-2989 
*74~-3022 *74-3036 8 *74-3047 = =*74-3086 38 *74-3098 3=— 74-3107 = *74-3124 0) 74-3134) 874-3148 
*74-3158 *74-3168 75-3188 +*75-3202 *75-3209 *75-3218 75-3227 76-3244 +*76-3258 
*76-3265 76-3274 76-3282 *77-3301 +*79-33568 *79-3384 81-3468 81-3485 +*83-3583 
“33-z5c8 stascahte *85-3792 - *87-3859  +87-3883 +*89-3974 +*91-4036 +*93-4086  +*96-4183 
nY5>- & - 
SMAIL 001224 19-1248 19-1248 #20-1249 — 36-1785 37-1787 43-1903 58-2106 58-2107 
R 000206 #19~1248 | 
SMFLG 006240 *#44-1904 44-1904 44-1904 #44-1904 
SMNE W 005271 40-1882 #40-1882 
SMSGAD 001240 #20-1249 44-1904 44-1904 
SGLG 001242 #20-1249 44-1904 
SMSGTY 001224 #20-1249 -1904 44-1904 44-1904 44-1904 
S Ope She 40-1882 #40-1882 
SMX CNT 001306 #20-1249 
LL 001154 #20-1249 43-1903 43-1903 43-1903 
SNWTST = 000001 #59-2150 59-2150  #60-2150 60-2150  #60-2226 60-2226 #61-2226 61-2226 #61-2294 
61-229 #62-2294 62-22 #63-2354 2354 #64-2554 64-2354  #64-2427 2427 
465-2427 65-2427  #65-2500 - #66-2500 66-2500 66-2544 66- 467-2544 
67-254 467-2632 67-2632  #68-26352 -26352 #68-2697 68-2697  #69-2697 69-269 
#69-2729 69-2729 #70-2729 70-2729 # * 777 70-2777 =#71-2777 71-2777 = #72-2852 
72-285 #73-2852 re 6576 #73~-3008 73-3008 #74-3008 -5008 #74-3186 74-3) 
#75-3186 -3186 #75-3242 75-3242 86 #76-3242 76-3242 #76-3299 76-32 #77-3299 
- #78-3359 78-3559 79-3359 79=3359 fy me 7h 80-346 #81-3462 81-3462 
#82-3563 82-3563 #83-3563 -3565 #83-3657 83-365 #84-365 84-365 #84~3768 
84-3768  #85-3768 85-3768 Wee 7588 86-3858 gf ime) 87-3858  #88-3962 88-396 
#89-3962 89-3962  #90-4033 90-403 #91-4033 91-403 #92-4081 92-4081 #93-4081 
93-4081 #94-4139 94-4139 #95-4139 95-4139 #95-4169 95-4169 #96-4169 96-4169 
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SEQUENCE 


164 
‘sym@o. CROSS REFERENCE mac CREF v01 
| 65-24 ? 66-2500 67-2544 68-2632 69-2697 70-2729 71-2777 73-2852 74-3008 
| 75-31 76-324 77-3299 79-3359 81-3462 83-3563 84-3657 85- 87-3858 
| 89-3 91-403 93-4081 95-4139 96-4169 98-4240 100-4300 101-4323 102-4346 
| 103-4369 104-4392 106-4517 107-4535 108-4553 109-4567 110-4609 110-4609 110-4609 
110-4609 110-4609 
SSWREG 001246 #20-1249 58-2106 | 
7 = 000000 15-1196 15-1196 15-1196 15-1196 15-1196 15-1196  15+1196 151196 151196 
Ps 1785 36-1785 36-1785 = 36-1785 «= 36-1785 = 36-1785 = 36-1785 = 36-1785 = 36-1785 
STBIT 001310 #20-1269  *51-1911 #582106 *110-4609 110-4609 110-4609 
$STESTN 001230 #20-12469 36-1785 39-1880 
TKB 001146 #20-1249 40-1882 40-1882 40-1882 40-1882 40-1882 40-1882 43-1903 43-1903 
$TKS 001144 #20-1249 40-1882 40-1882 40-1882 40-1882 40-1882 40-1882 40-1882 40-1882 
43-1903 43-1903 43-1903 43-1903 
STMPO 001176 #20-12469 32-1681 32-1693 32-1700 54-2005 54-2006 54-2007 54-2013 54-2018 
54-2029 54-2031 54-2032 60-2169 60-2199 60-2204 61-2240 61-2270 61-2275 
67-2971. 67-2578  +*71-2802 *71-2808 *71-2812 *71-2815 71-2819 71-2820 +*105-4483 
oh 
STMP1 001200 #20-1249 *32-1682 32-1694 32-1701 54-2032 %67-2568  +*67-2580 67-2583 67-2584 
67-2390, #67-2595  %67-2599 67-2600 70-2742 70-2748 70-2752 0-2753 109-4578 
STMP2 001202 #20-1249 54-2013 *67-2572 67-2581 *79=3414 —«-- 79-3415 #79=3428 «79-3429 # 81-3515 
81-3516 81-3529 81-3530 83-3620 +*83-3621 83-3625 *83-3638 83-3639 83-3642 
84-3716 84-3717 84-3721 +*84-3734 84-3736 84-3739 85-3822 85-3823 85-3836 
85-3837 +*87-3913 87-3914 87-3927 87-5928 *109-4590 
STMP3 001204 #20-1249 100-4303 100-4307 *101-4326 101-4330 *102-4349 102-4353 103-4372 103-4376 
#109-4587 109-4594 
STMP4 001206 #20-1249 *39-1855 39-1857 109-4588 109-4593 
$TMP5 001210 #20-12469 39-1856 +%41-1886 41-1887 41-1893 *109-4589 109-4592 
$TN = 000046 #15-1184 15-1195 59-2150 60-2150 #60-2150 60-2226 61-2226 #61-2226 61-2294 
62-2294 862-2294 63-2354 64-2354  #64-2354 64-2427 65-2427 #65-2427 65-2500 
66- #66-2500 66-254 67-2544 867-2544 67-2632 68-2632  #68-2632 ~269 
69-2697  #69-2697 69-2715 69-2729 70-2729 #70-2729 70-2777 71-2777 #71-2777 
72-285 73-2852 4#73-2852 73-3008  74- 08 #74~300 74-3186 75-3186 #75-3186 
75-324 76-3242 #76-3242 76-3299 77-3 #77-3299 78-3359 79-3359 #79-3359 
a 80-34 81- #81-346 81-3536 82-3563 83-3563 #83-3563 
83-3657 B4~ #84-365 84-37 84-3768 85-3768  #85-3768 5-3845 -3858 
87-3858 #87-3858 87-3935 88-5 2 89-3962 #89-3962 89-4005 90-4033 91-4033 
#91-4033 -4072 92-4081 93-4081  4#93-4081 93-4122 94-4139 95-4139 #95-4139 
95-4169 36 -4169 #96-4169 96-4216 97-4240 98-4240 #98-4240 98-4280 
100-4300 #100-4300 100-4314 100-4323 101-4323 w101~4323 101-4337 101-4346 
#102-4346 102-4360 102-4369 103-4369 #103-4369 103-4 8 103-4392 104-4392 é 
105-4517 106-4517 #106-4517 106-4535 107-4535 #107-4535 107-4553 108-4553 #108-455 
108-4567 109-4567 #109-4567 
TPB 001152 #20-1249 43-1903 43-1903 43-1903 
STPFLG 001157 #20-1249 43-1903 43-1903 43-1905 
TPS 001150 #20-1269 43-1903 43-1903 43-190 
STRAP 007206 #50-1910 58-2106 
$TRAP2 007230 #50-1910 50-1910 
$TRP =: 000015 #50-1910 50-1910 50-1910 50-1910 50-1910 #50-1910 50-1910 50-1910 50-1910 
50-1910 #50-1910 50-1910 50-1910 50-1910 50-1910 4#50-1910 50-1910 50-1910 
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MACRO CROSS REFERENCE 01 
MACRO EFERENCES 
COMME N #15-1197 
ENDCOM 415-1197 
ESCAPE #151197 
GETPRI #15-1197 110-4609 
GETSWR #15-1197  #58-2107 58-2107 
ME S350 293 100-4300 
MES351 #1004516 #101-4525 
ME S352 #101-6339 102-4546 
MES 35 4102-4362 4103-4369 
ME S354 #103-4384 #1044392 
ME S355 #105-4509 106-451 
ME S356 #106-4527 #107-4535 
ME S357 #107-4545 #108-4553 #108-4562 #109-4567 
MSG30 #59-2142 60-3150 
MSG31 60-2218  #61-2226 
MSG31A W61-2285 62-2294 
G 463-2343  #64-2354 
G 464-2416 65-2427 
G #65-2487 66-2500 
MSG35 #66-2531 67-2544 
G36 467-2619 68-2632 
MSG #68-2691 69-269 
MSG37 469-2718  #70-2729 
G40 #70-2763 —-#71-2777 
MSG4OA #76-3291 #77-3299 
#72-2837 73-285 
MSG40C #73-2998  #74-3008 
MSG40D #74-3178  #75-3186 
MSG4OE #75-3234 76-3242 ’ 
#78-3345  #79-3359 
MSG41A #80-3448 81-3462 
MSG42 #82-3549  #83-3563 #84-3657 
MSG43 #84-3754 #85-3768  #87-3858 
MSG43A #88-3948 89-3962 
MSG44 #90-4019 #91-4033  #93-4081 
MSG45 #94-4131 95-4139 
MSG46 #95~4156 #96-4169 
MSG47 497-4229 98-4240 
NEWTST HIS-1178 #15-1197 #59-2150  #60"2226 461-2294 63-2354 964-2427 #65 2500 #662544  #67-2632 
- - - - - - - - #67-26 
468-2 469-2729 #70-2777 = #72-2852 —#73~ 


he #75-3242 #76-3299 #78-3359  #80-3462 
#90-403 2-40 #94-4139 #95-4169_ #97-4240 
reeatt” A ae #107-4553 #108-4567 


co 
ond 


697 
#82-35635 #83-3657 #84-3768  #86-3585 #88- 73 
: ‘5 #103-4392 


POP #15-1197 #44-1904 4-1904 #47-1907 51-1911 
#15-1197 44-1904 44-1904 44-1904 47-1907 48-1908 51-1911 51-1911 
REPORT #15-1197 , 
SAVR #15-1166 #37-1787 
ETPRI #15- 


SET 
SETTRA #50- 50-1910 50-1910 50-1910 50-1910 50-1910 50-1910 50-1910 50-1910 50-1910 


58-2106 
69-2715 79-3435 81-3536 83-3645 84-3742 85-3845 87-3955 89-4005 91-4072 


1197 

1910 

50-1910 50-1910 50-1910 
SETUP #15-1197 3 

SKIP #15-1197 
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MACRO NAME 


SLASH 
SPACE 
STARS 
SWRSU 
TRMTRP 
TYPBIN 
TYPDEC 
TYPNAM 
TYPNUM 
TYPOCS 
TYPOCT 
TYPTXT 
USER 
$SSCMRE 
SSCMTM 
SSESCA 
SSNEWT 
SSSET 
SSSETM 
SSSETU 
SSSKIP 
EQUAT 
EQUIV 
~ HEADE 
KT11 
SETUP 
- SWRHI 
- SWRLO 
$ACT1 
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